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Foreword 



A good accounting system must be simple, understandable, 
reliable, and accurate. It should also provide information 
quickly. COMPUTEI's Personal Accounting Manager for the Com- 
modore 64 and 128 is a computerized, cash-basis accounting 
system for individuals and small businesses, and it meets 
those standards. 

If you have a Commodore 64 (or a 128 using 64 mode) 
and a disk drive. Personal Accounting Manager (PAM) can 
give you control of your finances. It generates onscreen reports 
of income, expenses, investments, property, liabilities, and as- 
sets. And with the right equipment, you can print these re- 
ports and keep them in a notebook. Each chapter of this book 
provides the details for a specific accounting subject and the 
associated computer routine. You don't have to be experienced 
in accounting practices to use PAM effectively. 

PAM consists of 13 major routines clustered around a 
central menu. It's simple to use and the text is easy to follow. 
But using Personal Accounting Manager doesn't mean you 
should throw away your pencils, paper, and calculator. Mak- 
ing financial decisions involves lots of doodling. The program 
does the adding, subtracting, and report preparation — all of 
the work — and leaves you free to think, plan, contemplate, 
and evaluate. 

By using PAM you will learn more about where your 
money goes, and you may be able to make better financial de- 
cisions since you can base your decisions on accurate, reliable 
information. Providing you with that information is what 
PAM is all about. 

The program listings are in a special section, and "The 
Automatic Proofreader" is there to help you type them in cor- 
rectly. You can enter the programs yourself, or if you prefer 
you can purchase a PAM program disk. Use thie coupon in the 
back of this book or call toll-free 800-334-0868 (in North 
Carolina, dial 919-275-9809). 

If you've ever run out of money before you run out of 
month, you should get to know PAM. It could be just what 
you need to take control of yovir finances and put your Com- 
modore 64 to work for you. 
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Preface 



The program provided by this book is a complete, computerized 
accounting system. COMPUTEI's Personal Accounting Man- 
ager presents 13 routines interconnected by a Main Menu. Best 
of all, no previous accounting knowledge is required. 

The book and program are written for homemakers and 
small-business owners, and avoid technical accounting or com- 
puter jargon. Because operation of the system is completely 
menu driven, only routine computer operations are required. 

With PAM, you enter your accounting data only one time. 
Then, any part of the system can use the data as needed, 
without further aid from you. PAM can produce many 
accounting reports, some of which are unique to this system. 
For example, one report tells you how much money you need 
at the beginning of any month of the year in order to meet 
your obligations for the rest of the year. Since, in some 
months, expenses are expected to exceed income, you may 
want to save in advance. Figured on paper, this would require 
considerable trial and error, but PAM does it all for you, 
quickly and automatically. 

I hope you will enjoy using this program as much as I've 
enjoyed writing it. My sincere thanks and appreciation to my 
patient and loving wife, Lucille, who has seen little of me 
these many months. 
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The Personal Accounting Manager (PAM) uses the cash-basis 
accounting method, which is both accurate and easy to use. 
Although this accounting system requires no prior knowledge 
of accounting, it isn't considered inferior to the accrual 
method, which big businesses generally use. The cash-basis 
system is the one the Internal Revenue Service assumes ap- 
plies to everyone. More than 40 state governments in the 
United States use it. Perhaps you should, too, especially since 
PAM is willing to help. 

Here are the fundamental principles of cash-basis 
accounting: 

• Income isn't income until you can put it into a bank account 
or into your pocket, which PAM calls the CASh Account. 
(Three letters capitalized represent codes and are explained 
in Chapter 1.) 

• All expenditures are made by CHEck or CASh; they are re- 
corded only when actually paid. Credit purchases don't 
count until you pay with a check or cash. 

The chapters that follow discuss these two principles in 
greater detail and provide examples and exceptions. Remem- 
ber that you should be guided by these principles whenever 
you have to decide how to handle an unusual situation. 



Hardware Requirements 

This program was written exclusively for the Commodore 64 
computer. (It will also function on a Commodore 128 in 64 
mode.) It requires a disk drive and disks. You should also 
have a binder to keep your reports in. A printer helps, too, but 
isn't required. 

Speaking of printers, PAM has been tested on some mod- 
els made by Gemini, Commodore (1525 and MPS801), 
Okidata, Epson, and Brother; it should work fine with any 
ASCII-t)^e printer connected to your computer with a 
Centronics Parallel-type interface which also emulates Com- 
modore graphics. If your printer/interface combination doesn't 
fully support Commodore graphics, see the section "Printer 
Problems" below. 
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The Program 

The Personal Accounting Manager consists of a Main Menu 
and 13 support routines. The title will be in all capital letters 
when it refers to the support routines; individual selections 
from these routines will be initially capitalized. These modules 
are classified into five categories: 

PERSONAL DATA Routines that set up 

BACK-UP FILES and maintain the system 

INCOME Routines that input, correct, 

EXPENSE and manipulate accounting 

ADJUSTMENTS data 

PLANNED INCOME Routines that help 

PLANNED EXPENDITURES you prepare a budget 

ACCOUNT BALANCES Routines that 

INVESTMENTS keep track of your 

PROPERTY assets 

UNPAID BILLS and liabilities 

STMNT OF I&E Routines that provide 

BALANCE SHEET the basic reports 

PERSONAL DATA allows you to create your own lists of 
Type of Income, Disposition of Income codes. From Whom In- 
come is Received records, and Expense Accounts. It allows you 
to customize your reports and make the system personal. Once 
you've established these lists and codes, you won't need to do 
them again. The examples in the book will make setting up 
these lists easy. Use the BACK-UP FILES routine at the end of 
every month (or more often) to make a copy of your account- 
ing records for safekeeping. Don't rely on having only one copy 
of your accounting data. 

The INCOME and EXPENSE routines permit you to 
record, correct, or delete items of income or expense. The 
ADJUSTMENTS routine is in two parts: Adjustments and 
Transfers. Use Adjustments to change records involving items 
that aren't strictly income or expense (an income tax refund, 
for instance). Use Transfers to move money from one income 
account to another. 

PLANNED INCOME and PLANNED EXPENDITURES 
help you predict your income and control your expenditures. 
These routines make up your budgeting system; they set up 
your whole financial plan. They also allow you to compare 



planned versus actual receipts or expenditures directly so that 
you can see how you're doing. 

ACCOUNT BALANCES, INVESTMENTS, PROPERTY, 
and UNPAID BILLS are record-keeping and calculation 
routines. ACCOUNT BALANCES does what its title suggests; 
PAM uses it for generating reports. INVESTMENTS provides 
you with the information you need to evaluate your securities 
portfolio and make buy/sell decisions. PROPERTY keeps a 
record of your real estate, appliances, household furnishings, 
and personal items of value. Such a list is of inestimable value 
in the event of loss. UNPAID BILLS keeps track of what you 
owe and to whom. 

Finally, the last group provides you with the reports you 
would expect from a professional accounting system. STMNT 
OF I&E is your Profit and Loss Statement. It compares your 
income to your expenses and tells you whether you have a 
surplus or a deficit for the period covered by the report. BAL- 
ANCE SHEET summarizes your total financial condition and 
calculates the bottom line — your net worth. 



Develop a Method 

Since you record your accounting transactions only once, it is 
essential that you develop a routine for regularly posting en- 
tries. This guards against incorrect, duplicate, or omitted en- 
tries. Here are some recommendations: 

• Keep a binder containing printouts of your standard lists and 
codes. Even though this information can be put on your 
monitor at any time, you will find it faster and easier to look 
them up in your binder. 

• As with all computer programs, absolute consistency is a 
must. Put copies of reports in your loose-leaf binder as they 
are prepared. If you don't have a printer, make hand-written 
copies from the displays on the screen. You can then copy 
many repeat entries directly. 

• Use hard copies of PLANNED INCOME and PLANNED 
EXPENDITURES as checklists of expected income and ex- 
penses for the month. Write the actual receipts/expenses on 
these until you can enter them into the system — then check 
them off. 



Typing the Routines 

Using PAM is easy. First, however, you must have a program 
to use. Read "A Beginner's Guide to Typing In Programs," 
"How to Type In Programs," and "The Automatic Proof- 
reader" in the "Program Listings" chapter before you type in 
the programs. 

Needless to say, save the routines before running them, 
using the procedure described in your disk drive manual. This 
is especially important with the loader program named PAM. 
This is machine language, and any typing errors will cause the 
computer to lock up. If that happens, all of your typing will be 
lost. SAVE first— RUN later! 



The Order of Things 

Some programs must be typed first, others are needed early, 
and still others can be typed later. The following order is 
recommended. 

First, type in the three absolutely necessary routines: 

AUTOMATIC PROOFREADER 
PAM 

PERSONAL DATA 

PAM gives you the Main Menu, and PERSONAL DATA is 
needed by every routine in the system. 

Type in these routines to get the system going. 

INCOME 
EXPENSE 
ADJUSTMENTS 
PLANNED INCOME 
PLANNED EXPENDITURES 
BACK-UP FILES 

Finally, type these: 

ACCOUNT BALANCES 
UNPAID BILLS 
STMNT OF I&E 
INVESTMENTS 
PROPERTY 
BALANCE SHEET 

These routines will all fit on the same disk if you type 
them exactly as listed. 
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Using the System 

To begin, simply insert the disk containing the program (called 
the program disk) into your disk drive and type 

LOAD 'TAM,"8 

Then press RETURN. When the disk drive stops, type RUN 
and press RETURN. The Main Menu will appear on the 
screen. Select the routine that you want to work with, and the 
computer will load it and make it ready for you to use. 

Each routine has a menu of its own to guide you through 
its use. The last item on these menus is always the Main 
Menu. Making that selection clears the computer of the rou- 
tine you've been using and returns you to the Main Menu 
where, if you wish, you can make another selection. When 
you're finished using the program, remove and store the pro- 
gram and data disks in a safe place and then shut off your 
computer. 



Warnings and Limitations 

Here are some dos and don'ts: 

When asked for the month or day, type it as a two-digit 
number (01 for January, for example). 

Keep the data for each month separate. Don't put Feb- 
ruary's expenses in with January's. 

Always give amounts in the form of X.XX (3.59, 0.98, and 
so on). A minimum of three digits plus the decimal is required 
for all amounts. 

Individual amounts are limited to 9999.99. Break up larger 
amounts and enter them separately. 

Data is stored on the disk as files. When you start up the 
system, there will be many unestablished files on the data 
disk. In these cases, the red light on the disk drive will flash 
on and off as it searches for a file that isn't there. Ignore it. If 
a file does exist, however, then failure of the program to read 
it may be caused by a misalignment of your disk drive or 
some other hardware problem. Have your equipment checked 
by a reputable service center. Since misalignment problems 
usually develop progressively, a realigned disk drive will 
sometimes not read previously recorded files. If you have 
printed copies of your accounting data (in the form of reports), 
you can reenter the data and recreate any file that won't load 
or run properly. 
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The computer will let you know what activity is going 
on — with one possible exception. This exception, called gar- 
bage collection, will occur from time to time while PAM is run- 
ning. The computer throws out garbage (unneeded 
information) when it feels like it, even when it's printing. 
Activity will appear to have ceased forever. When this hap- 
pens, you may think your computer has died, but be patient. It 
will recover and go on with its work in a minute or two. 



If Something Goes Wrong 

If you've used a computer much you know that mistakes hap- 
pen. Here are some suggestions on recovering with a mini- 
mum of effort. 

If you mistakenly select the Correct function, simply select 
any item on the list and press the RETURN key for each data 
item on the screen. This is a "no change" option which will 
eventually get you back to the menu. 

You can escape if you mistakenly select the Delete func- 
tion. The required key will be given on the screen. 

No computer program is foolproof. A user's carelessness 
can cause loss of data. This is one reason for keeping a back- 
up disk and making printed copies before throwing away re- 
ceipts or other records. For example. Chapter 2 describes the 
disastrous effects of using the Start New Month routine when 
a file for that month already exists. Another mistake is press- 
ing the Add New item option when you have no data to add. 
Sometimes you can add a fictitious item, then delete it. But 
there will be times when you will have no choice but to use 
one of the escape methods described below. It's better to be 
careful and read the instructions on the screen every time, no 
matter how monotonous they may become. 

If you somehow get stuck in the program with the cursor 
still flashing on the screen, hold down the RUN/STOP key 
and tap the RESTORE key sharply to clear the screen and 
print READY. Then type RUN and press the RETURN key. 
Note that all data entered during the session will be lost and 
must be reentered. 

If you make many corrections and deletions in a row, you 
might get an OUT OF MEMORY error indication on the 
screen. In most cases you're not really out of memory, but the 
computer thinks so, and you'll have to humor it. Some of the 
changes you're making may be lost. To get going again, type 
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I— I RUN and press RETURN. In a few seconds, the routine you've 
' 1 been working with will restart. Go to the display option and 
check to see which of your changes haven't been recorded. 

In the unlikely event that typing RUN doesn't get you go- 
ing again or if the problem keeps occurring, type SYS51000 
and press RETURN. This will display the Main Menu from 
which you can proceed as usual. Again, check the display for 
the routine you were using to verify that all your data is there 
and that any changes or deletions have in fact been made. 

Finally, as a last resort, type SYS64738 and press RE- 
TURN. This resets the computer (it will give you that 
squeezed, hurt look but don't worry — you didn't hurt it). Now 
type SYS51000, press RETURN, and proceed. 
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Printer Problems 

As mentioned earlier, the PAM routines have been tested with 
several printers. Nevertheless, you may encounter problems 
either because of the way your printer is set up or because it 
isn't fully compatible. Regardless of what printer you have, 
though, you should type in the programs exactly as listed in 
the "Program Listings" chapter, using "The Automatic Proof- 
reader." 

If you then find that your printer doesn't print Com- 
modore graphics properly, you can replace the Commodore 
key-T and SHIFT-D characters (both of which draw lines) 
with hyphens. Likewise, substitute normal characters for any 
other graphics characters that don't work. 

Another difficulty in using a printer with a Commodore 
64 is that there is no agreed-upon standard for transmitting 
data from the 64 to a printer. Even Commodore printers vary. 
Also, several companies have designed interfaces that allow 
you to connect the 64 to a non-Commodore printer — but these 
vary greatly as well. 

Still, PAM will work fine with most printers. If you've had 
much experience with your printer, you probably already 
know how to make it print acceptably. And the manual is al- 
ways there with the information you need. 

Defining printer modes is a common technique used by 
interface manufacturers to allow you to control your printer. 
One mode would be without linefeeds, for example, and an- 
other would add them, so your printout would look like you 
want it to. These modes are often accessed by the third (last) 

XV 



number in an OPEN statement. For example, to open a 
CARDCO +G interface with linefeeds, you could use 

OPEN 4,4,1 

But other printers use the 1 to indicate such functions as 
formatted printing (the Star/Gemini SG-IOC, for example, 
which has its own built-in interface). If you want to succeed 
with some printers, you'll need to read your printer and inter- 
face manuals, then change the lines in the programs which 
contain OPEN statements so that they will work with your 
setup. This isn't a problem with PAM, it's not a problem with 
your computer, and it's probably not a problem with your 
interface. It's just that they aren't talking to each other in the 
way they expect. 

Note: Before changing the correctly typed PAM programs, 
however, make sure that you have made copies of the originals. 
Test them without using the printer first, and remember that all of 
the PAM modules should be on one disk. See "Typing the 
Routines" above for more information. 

Now that you've made it this far, this is a good time to 
type in the Automatic Proofreader and PAM (see the "Pro- 
gram Listings" chapter). You can put the Proofreader on any 
disk that has room on it — and it isn't very long. But you 
should put PAM on a freshly formatted disk. To format the 
disk, turn on the computer, disk drive, and monitor; then en- 
ter the following command and press RETURN: 

OPEN 15,8,15/'N0:PAM MASTER DISK, FH" 

When the drive stops whirring, enter the command 

CLOSE 15 

Don't forget to name the programs as indicated by their 
titles. It is probably easier to place PAM first on the accounting 
disk so that you can use LOAD"*",8 to start the program. 

The general form for saving these files on the Com- 
modore 64 is 

SAVE"0:FILENAME",8 



A Special Bonus 

Since some of the routines in PAM are lengthy, they are slow 
to load on the Commodore disk drive. But there is a cure for 
this waste of time. It's called "TurboDisk," and it has been 
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published in COMPUTE! magazine (April 1985), COMPUTEI's 
Gazette magazine (July 1985), and in COMPUTEI's Commodore 
64/128 Collection. PAM doesn't conflict with TurboDisk, so 
you can greatly increase the speed of disk drive operations 
when using PAM. And TurboDisk works with many other pro- 
grams as well. 

To order a disk, book, or magazine copy of Personal 
Accounting Manager or TurboDisk, you can call toll-free 800- 
334-0868 (in North Carolina call 919-275-9809). 
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Personal Data 



'his chapter is very important. PAM doesn't know the name of 
i I i your bank, what you do with your money, or what kind of 

expenses you have. You must tell it these things by using this 
routine to create lists and codes (such as Types of Income or 
Expense Accounts) which you and PAM will then use to 
communicate with each other. This routine establishes your 
customized version of the Personal Accounting Manager. 

To prepare for what lies ahead, you should get out your 
bank books, pay slips, and expense receipts, since you will 
need to copy names accurately. First, you'll type in your 
name, address, and the year. Next, you will categorize your 
income into type (pay, dividends, and so forth) and source 
(who pays you money), and identify where that income goes 
(bank, checking). Finally, using a list of your expenses, you 
will make up some expense accounts. 

You might think this chapter will be boring. Nevertheless, 
as much as you would like to jump ahead and start recording 
your income and expenses, preparing financial reports, and so 
on, you cannot do so. At this time the computer can't under- 
stand you because it doesn't have the files required for the 
system to work. Before long, though, you will have PAM 
ready to go. 

If you have a printer, put copies of the lists created by 
this program into a notebook. Even though this information 
can be displayed on your monitor at any time, it's much faster 
and easier to look it up in your notebook. 



Getting Started 

Personal Accounting Manager requires two disks, but you 
should use three: the program disk, a data disk, and a back-up 
disk. In this chapter, we're going to talk about the program 
disk and the data disk. Chapter 13 will discuss the back-up 
disk. 

The program disk (also called the PAM master disk) is the 
disk on which you save the program routines as you t5^e 
them (or the disk that you ordered with the program already 
on it). 

Format a new disk which you will use to hold your 
accounting data for the year. This is the data disk. You can use 
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any disk name and identification number that you wish. For 
example, a disk name of PAM DATA and an ID number of 85 
(signifying the year 1985) is fine. Use a command like 

OPEN15,8,15/'N0:PAMDATA,85":CLOSE15 

Don't use the name BACK-UP or the ID number SHIFT-£2. 
These are reserved for the back-up disk. 

When you've entered the PAM and PERSONAL DATA 
programs and have the data disk formatted and ready to go, 
insert the program disk into the disk drive and type 

LOAD "PAM,"8 

and press RETURN. When the disk drive stops, type RUN and 
press RETURN again. In a few seconds, the first screen of the 
Main Menu will appear: 

PERSONAL ACCOUNTING MANAGER 

A. PERSONAL DATA 

B. INCOME 

C. EXPENSE 

D. ADJUSTMENTS 

E. ACCOUNT BALANCES 

F. INVESTMENTS 

G. PROPERTY 

H. NEXT PAGE 

PRESS DESIRED LETTER 

The second screen looks like this: 

I. UNPAID BILLS 

J. BALANCE SHEET 

K. STMNTOFI&E 

L. PLANNED INCOME 

M. PLANNED EXPENDITURES 

N. BACK-UP FILES 

O. FIRST PAGE 

PRESS DESIRED LETTER 

This menu is yellow with blue lettering. You will see it often 
and should recognize it when you do. Remember, it's called 
the Main Menu. 

Note also that the computer routines listed on the Main 
Menu have the same name as the chapters in this book that 
explain how to use them. Press the A key to select item A, 
Personal Data. The computer will automatically load and run 
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this routine. When it's finished you will have to switch disks, 
so watch the screen for instructions. 

The next menu that you will see is the Personal Data 
menu: 

PERSONAL DATA 

1. PERSONAL DATA 

2. TYPES OF INCOME 

3. DISPOSITION OF INCOME 

4. FROM WHOM RECEIVED 

5. SOURCES OF FUNDS 

6. TYPE OF EXPENSE 

7. EXPENSE ACCOUNTS 

8. MAIN MENU 

To establish your accounting system, progressively go 
down this menu, setting up your own personal lists and codes, 
one after the other, using the figures in this chapter as your 
guide. 



Personal Data 

Selecting Personal Data from this last menu will give you 
these choices: 

PERSONAL DATA 

1. ENTER/CHANGE DATA 

2. VIEW PERSONAL DATA 

3. VIEW LIST OF REPORTS 

4. RETURN TO MENU 

Here, on selecting Enter/Change Data, you will be asked to 
type in your name, street, city, state, zip code, and the year for 
this data disk. Press the RETURN key after each item. For 
example: 

NAME: JOHN & JOAN SMITH 
STREET: 123 MAIN STREET 
CITY: ANYVILLE 
STATE: S. T. 
ZIP: 99999 

YEAR: 1985 

Note that there is no Correct or Change option available. 
Change is effected by starting all over again, but in so doing, 
all previously entered data is replaced. Just be careful here 
before you press the RETURN key. 
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Selecting View Personal Data gives you a screen display 
of this data. If you have a printer, it will give you a cover 
sheet for your notebook of financial records (see Figure 1-1). 

Figure 1-1. Sample Title Sheet 



PERSCmAL ACCOUNTING MANAGER 



JOHN & JOAN SMITH 
123 MAIN STREET 
ANYVILLE S.T. 
99999 



1985 



Item 3, View List of Reports, vdll display on the screen a 
list of all reports provided by this progrant. The list is in the 
form of a table of contents which you can use in your note- 
book (Figure 1-2). The page numbers shown are those printed 
on the reports to make filing and finding reports easy. 
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Figure 1-2. List of Reports 



JOHN it JOAN SMITH 
1985 



LIST OF REPORTS 



FINANCIAL CONDITIONi 

BalancB Shvet 

Account Balances (1 Jan). 

Currant BalancM 

Value Housahold Gaode . . 
Valua all Proparty. . . • 
6ain/LoB« Summary (Stocks) 
Unpaid Bills. 

RESULTS FOR THE YEARl 

Planned Income 

Planned Expenditures. . . 

Income for Year 

Investments Income Summary. . 

Expense for Year 

Statement of Income St Expense 

RESULTS BY MONTH (consists of the following reports for each 
monthi Planned Income vs. Actual, Planned Expenditures vs. 
Actual, Income, Expense, and Statement of Income & Expense) i 



January 210 

February 220 

March 230 

April 240 

May 2S0 

June 260 

July 270 

August 280 

September 290 

October . 300 

November 310 

December 320 

8UPP0RTIN6 STATEMENTS! 

Account Balances by DIS category 510 

Income for Year by Type 520 

Expense for Year by Type 



lO 
20 
21 
24 
25 
30 
40 



110 
120 
130 
140 
150 
160 
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Not Diiductibls 532 

Daductibl* S34 

Other 336 

Craditor* 538 
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niniffluffl Requlrad B*lanc« 550 

Investmsnts 

Bonds 600 

Stacks 650 

Other 700 

Suffloiary of Adjustments 800 

Adjustfflsnts 810 

SuoMnary of Transfers 900 

Transfers 910 

Bank Statenente 1000 

Property Lists and Sumfflarles 

Real Estate 2000 

Household Goods 

Living Room 2100 

Dining Room 2200 

Kitchen 2300 

Bathroom <s> 2400 

Master Bedroom 2S00 

Bedroom No. 2 2600 

Bedroom No. 3 2700 

Attic 2800 

Cellar /Gar age/Shed 2900 

Appliances 3000 

Automobiles 4000 

Personal Items 5000 



Types Of Income 

Return to Menu does just that — returns you to the Personal 
Data menu where, continuing down the list, you would next 
select Types of Income. This menu now appears on the screen: 

1. ENTER/CHANGE DATA 

2. VIEW DATA 

3. RETURN TO MENU 

Enter/Change Data this time will give you the following 
options: 
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r— ^ ENTER/CHANGE DATA 

' 1. ADD 

2. CORRECT 
^ 3. CHANGE 

' ' 4. RETURN TO MENU 

Types of Income are pay, interest, dividends, and so on. 
, \ Figure 1-3 gives a sample listing. Selecting Add (item 1) and 
using Figure 1-3 as a guide, type in the names of income types 
that apply to you. It doesn't matter what order you tj^e them, 
but when possible enter them in alphabetical order. PAM will 
automatically assign an item number to each one. You can 
specify up to nine types of income. 

Figure 1-3. Standard Types of Income (Examples) 

TYPES INCOME 



1 DIVIDEND 

2 INTEREST 

5 OTHER INCOME 

6 PAY 

3 PENSION 

7 RENT INCOME 

4 ROYALTIES 



Selecting Correct or Change allows you to make a change 
in the name you've used to identify a type of income. PAM 
will ask you for the item number. If you don't know it, type 0, 
and the routine will save what you've done so far, then return 
to the menu where you can select View Data. Note the num- 
ber of the item you wish to Correct/Change, then repeat the 
process. The item that you select will appear on the screen. 
Just retype the name the way you want it. 



Disposition of income 

The disposition of income codes that you create by selecting 
Disposition of Income are the most important items in the sys- 
tem. These codes reflect where you put your income — in the 
bank or in your pocket. They allow PAM to log bank deposits 
automatically and they are used by many routines to separate 
accounting data, calculate bank balances, and develop reports. 
Use the sample listing in Figure 1-4 as a guide. 
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Figure 1-4. Disposition of Income (Examples) 



DIS 



INCOME 



BUS 
CAS 
CHE 
CHR 
INV 
OTH 
RET 
SAV 



BUSINESS 
CASH ACCOUNT 
CHECKING 
CHRISTMAS CLUB 
INVESTMENTS 
OTHER 

RETIREMENT PLAN 
SAVINGS ACCOUNT 



Simply type in a name, and PAM determines the DIS 
code. Disposition of Income codes consist of the first three let- 
ters derived from the name of banlcs, institutions, corporations, 
or names of accounts where you deposit your money for 
safekeeping. These are savings accounts, checking accounts, 
holiday clubs, and so on. You should set up a DIS code for 
each account. Nine DIS codes are possible, but two are re- 
quired and two others are strongly recommended. 

When you select Enter/Change Data, the Enter/Change 
Data menu we worked with in the previous section reappears. 
Select Add. PAM will ask you for information. Type 

CASH ACCOUNT 

and press RETURN. Establishing this DIS code is mandatory. 
PAM will ask 

ANOTHER ITEM? (Y/N) 

Answer Y (yes) and type 

CHECKING ACCOUNT 

Again press RETURN. The required DIS code for your check- 
ing account must start with the letters CHE. If you have your 
checking account at Cheap National Bank, you could use that 
name instead; otherwise, simply call it checking account. 

Using Figure 1-4 as a guide, continue to tj^e in names, 
keeping in mind that PAM uses the first three letters of each 
name as the DIS symbol. You can't use two DIS codes with 
the same three initial characters. If you have a savings account 
and a Christmas club at the same bank, only one can have the 
name of the bank; the other must be given a different name. 
Any name will do, but be careful that you don't duplicate the 
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first three letters of any name that you've already used. DIS 
codes must be unique for each account. 

You should also establish the following two DIS codes: 
Investments and Other. The remaining five DIS codes are for 
your use. 



From Whom Received 

Item 4, From Whom Received, enables you to prepare a list of 
the names of banks, corporations, and so forth, who pay you 
money regularly. The From Whom list need not be limited to 
these names, however, and a name need not have been estab- 
lished on the list before you can properly log an income 
against it. This list simply insures that you will spell the 
names exactly the same way each time. 

You are limited to 39 different names, and PAM will 
automatically assign an account number to each name. Figure 
1-5 is a sample list. 

Figure 1-5. From Wliom List (Sample) 

STANDARD LIST OF FROM WHOM INCOME IS RECEIVED. 
SPELL EXACTLY I 



16. 





9. 





5. 





1. 


AEP 


2. 


BELL OF PA 


13. 


BROKER 


3. 


BSN ED 


4. 


BSN ED PFD 


12. 


C/D BANK 


19. 


CHECKING ACCOUNT 


7. 


GTE 


8. 


ILLINOIS BELL 


6. 


JONES MFG 


10. 


MOBIL 


11. 


OHIO EDISON 


14. 


PULLMAN 


IS. 


RCA 


20. 


SAVINGS BANK 


18. 


SCOVILL 


17. 


SIGNAL 
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If you receive more than one income from the same com- 
pany, you could set up more than one From Whom code. Just 
come up with a name for each, allowing PAM to total these 
incomes separately: 

JONES MFG (PAY) 
JM-COMMISSIONS 
JM-REIMBURSED EXPENSES 



Sources of Funds 

Item 5, Sources of Funds, presents you with the following 
display: 

SOURCES OF FUNDS 

WHEN LISTING AN EXPENSE, YOU WILL BE ASKED: 
CHECK NO. OR CASH (CAS)? 

IF PAYMENT IS BY CHECK TYPE CHECK NO., IF BY CASH TYPE 
'CAS'. CREDIT CARD PURCHASES ARE NOT PAYMENTS AND 
ARE NOT ENTERED. SEE YOUR MANUAL. 

This display is a reminder only — there is nothing you 
need to do here. You will recall that one of the fundamental 
principles of this system is that all expenditures are made by 
CHEck or CASh. To implement this, you use the INCOME 
routine (Chapter 2) and the Disposition of Income codes to de- 
posit part of your income into the CASh account, some into 
the CHEcking account, and the rest elsewhere. You use the 
EXPENSE routine (Chapter 3) to charge the expenditure 
against either the CASh or CHEcking account as appropriate. 
The prompt is important because PAM will know to deduct 
the expenditure from the CHEcking account only if it sees a 
check number here. 

Here's a review of the difference between Disposition of 
Income, From Whom Income is Received, and Source of 
Funds. From Whom Income is Received is the name of some- 
one who has paid you money. Disposition of Income codes 
represent the name of an account or place where you deposit 
your money (temporarily or permanently), while Source of 
Funds is where you took the money from in order to pay an 
expense, CASh or CHEcking. 
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Type of Expense 

Selecting 6, Type of Expense, will present you with this 
^ display: 

i \ STANDARD TYPES OF EXPENSE 

TYPE EXPENSE 

'~J 1 NOT INCOME TAX DEDUCTIBLE 

2 INCOME TAX DEDUCTIBLE 

3 OTHER 

4 CREDITORS 

Expense Accounts, which follow, are classified into these four 
categories. The Other category represents expenses about 
whose classification you are uncertain at the time the expense 
account is established (for example, some travel expenses may 
be deductible, others not). Classifying your expenditures in 
this way will help you when income tax time comes around. 

There is nothing for you to do here, either. As with 
Sources of Funds, the above categories of Type of Expense are 
fixed, and the display is for information only. 



Expense Accounts 

When you select Expense Accounts, you will be given the 
Enter/Change Data menu discussed earlier. To establish your 
expense accounts or to Add, Correct, or Delete an account, se- 
lect 1, Enter/Change Data, which will present you with this 
special menu: 

ENTER/CHANGE DATA 

1. NOT DEDUCTIBLE 

2. DEDUCTIBLE 
(—^ 3. OTHER 

{ J 4. CREDITORS 

5. RETURN TO MENU 

J I Using Figure 1-6 as a guide, establish those expense accounts 
that you think apply to you. Make up your own if you don't 
see what you want. There are no rules. When finished with 

^ one type, answer N to ANOTHER ITEM (Y/N)? Repeat the 

- procedure, successively going down this menu one category at 

a time. In all cases, type the name only — the computer will 

p**! automatically assign the expense account number. 
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Figure 1-6. Expense Account (Sample) 

STANDARD ACCOUNT NUMBER 



ACT NO. EXPENSE 

1. NOT DEDUCTIBLE 

6 ALLOWANCE-DAD 
S ALLOWANCE-MOM 

1 1 ALLOWANCE-SON 

27 APPLIANCES 

23 BOWLING 

7 ELECTRICITY 

8 FOOD 

9 FRATERNAL ORGANIZATIONS 
26 FURNITURE 

10 GASOLINE 

12 HEAT/FUEL OIL 

17 HOBBY 

28 HOUSEHOLD GOODS 

13 INSURANCE 

14 LAUNDRY 

4 LEGAL EXPENSE 

30 LIFE INSURANCE 

29 LOTTERY 

15 MAGAZINES/BOOKS 

19 POSTAGE 

20 PROPANE GAS 

1 RENT 

21 REPAIRS- AUTO 

22 REPAIRS-HOUSE 

2 TAXES-FEDERAL INCOME 

3 TAXES-FICA 

16 TELEPHONE 

24 TRAVEL 

25 TV CABLE 

18 WATER 

2. DEDUCTIBLE 

60 CONTRIBUTIONS 

61 INTEREST PAID 

63 MEDICAL 

69 MEDICAL INSURANCE 

68 SAFETY DEPOSIT BOX 

64 TAXES-PROPERTY 

65 TAXES-SALES 

66 TAXES-STATE 

67 TRADE DUES 

62 UNION DUES 
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3. OTHER 

85 ACC0UNTIN6 

86 ADVERTISING 

87 CLOTHES 

88 COMPUTER BUSINESS 

89 ENTERTAINMENT 

96 EQUIPMENT-COMPUTER 

90 LICENSES 

91 MISCELLANEOUS 
95 OTHER 

92 REPAIRS-MISC 

93 TAXES-OTHER 

94 TOOLS 

112 HOUSEHOLD GOODS 

4. CREDITORS 

116 

103 AMERICAN EXPRESS 
102 DINERS CLUB 

106 EASTERN PROPANE 

118 EASY FINANCE COMPANY 

107 EXXON 

108 FILENE 

112 FIRST NATIONAL BANK 

109 FORTIER FUEL 
115 GLORIA STEVENS 

110 J C PENNEY 
105 K-MART 

111 LECHMERE 

101 MASTER-CHARGE BANK 

114 MOBIL 

113 MONTGOMERY WARD 

117 SEARS ROEBUCK 

104 SMITH'S FURNITURE STORE 
100 VISA BANK 



NOTE THAT ACCOUNT NUMBERS LESS THAN 60 ARE NOT TAX DEDUCTIBLE. 
ACCOUNT NUMBERS BETWEEN 60 AND 84 ARE, AND THOSE ABOVE 85 ARE 
UNDETERMINED. 



In Type 3, Other, be sure to establish an account named 
Other or Miscellaneous (or both) for use as general-purpose 
accounts, for minor incidentals, or for that once-a-year un- 
usual expenditure. Remember that to record an expenditure, you 
must use an established expense account. If you are entering an 
expense and you don't see the right account, you can use 
Other or Miscellaneous temporarily — if you've set up the ac- 
counts in advance — and transfer the entay later. 
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Account numbers have the following significance: 
Account Numbers Category 



Not all reports display the Type of Expense identifpng num- 
ber. The above account numbering system makes it possible 
for you, in reviewing a list of your expenses, to tell the type of 
expense from the account number alone. 

Why are Creditors considered as expense accounts? 
Usually, creditors are listed under liabilities or Accounts Pay- 
able. Ordinarily, you would make two entries for such expen- 
ditures — one to accounts payable and another to the specific 
expense account involved. This is the accrual-basis, double- 
entry accounting system. You don't need this complication, so 
we charge the expense against the creditor directly because 
these are usually for large sums (furniture, expensive items). 
They will usually involve monthly payments, and so at the 
end of the year you know how much money you are paying 
to charge accounts. No matter what system you are using, you 
should remember to record whom you buy expensive things from 
and how much money you pay to your creditors each year. 

Don't set up too many specialized expense accounts. Set 
up specific expense accounts for common, frequent, or 
substantial expenditures only. A good rule to follow is that if 
the expense isn't listed in your budget, then you probably 
shouldn't set up an account for it. 

If you don't need an account any longer, use Correct or 
Change in the Enter/Change Data menu and change the ac- 
count name to (zero). However, the account isn't completely 
deleted because it may have been used to record an expen- 
diture and to eliminate it completely would result in erroneous 
reports. The best time to delete an expense account is at the 
beginning of the year. Still, if you're certain that it hasn't been 
used this year, then you can completely eliminate this account 
by using ttie account number the next time you establish a 
new expense account. In this case, use the Change function in- 
stead of Add and type in the name of the new account. (This 
same procedure applies to Disposition of Income codes.) 



1-59 
60-84 
85-99 
100-139 



Not Deductible 
Deductible 
Other or unsure 
Creditors 
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Once established, these lists and codes may be viewed on 
your monitor. After selecting the category from the opening 
Personal Data menu, select View Data. Once it is on the 
screen, you will be given the printout option. 



Setting Up the System for a Small Business 

You can use this program for a small business if your business 
is principally a cash or credit-card business. Here are some 
ideas on how to set it up: In Types of Income and From 
Whom Income is Received, set up Sales in both places; if 
someone owes you money, that's an Account Receivable. In- 
dividuals don't have that problem, so there is no routine in 
this system to handle such things. Keep a record of your ac- 
counts receivable by hand in a separate journal. Record as 
Sales only when you're paid. 

Also, in the PROPERTY routine (Chapter 7), use House- 
hold Goods to represent Plant Account. Again, keep a separate 
journal of your inventory and list the total sum value as one 
item using the Real Estate option. This will permit depreci- 
ation of your plant equipment, but not your inventory. 

Other than that, you should have no trouble using this 
system for your business. One final thought: Small businesses 
are often individually owned. It is important that you separate 
the individual from the business — you can use this system for 
your personal accounting system and you can use this system 
for your business, but don't commingle the two. Set up two 
separate systems, each with its own data disk. 



Reports 

This routine will provide you with listings of your T)^es of 
Income, Disposition of Income, From Whom, Sources of 
Funds, Type of Expense, and Expense Accounts (including 
Creditors). 

If you have a printer, always make hard copies. You can 
do so by selecting any of the View Data options and typing Y 
when asked HARD COPY (Y/N)?. 

The routines print report numbers in the upper-right cor- 
ners of the reports to help you to identify them. For the hard- 
copy version, this report number may also be used as a page 
number to help you file these reports logically. 
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And Next Year... 

When creating a new data disk for next year, follow these 
steps: 

• Format the new disk using standard disk commands. 

• Transfer three fUes (PERSDATA, INCDATA, and EXPDATA) 
onto next year's disk by making a change to an item in each 
file. Note that only one item in each FILE must be 
changed — you don't need to retype all of your standard lists. 

• Insert this year's data disk, then select PERSONAL DATA 
from the Main Menu. Remove the disk and insert the new 
data disk that you are creating for next year. 

• Select Personal Data and enter again the name, street, and so 
on. This is to get to the last prompt which is YEAR?. With 
the new disk in the drive, type in the new year and PAM will 
create a PERSDATA file on the new disk. 

• Next, select Type of Income, Enter/Change Data, then Cor- 
rect. Asked what item to correct, type in the item number for 
an item you may have needed last year but don't need this 
year. If you have nothing to correct, type 1, then ret5rpe the 
item without change. This will create the INCDATA file on 
the new disk. 

• After this, select Expense Accounts and then item 1, which 
will give you this menu: 

ENTER/CHANGE DATA 

1. NOT DEDUCTIBLE 

2. DEDUCTIBLE 

3. OTHER 

4. CREDITORS 

5. RETURN TO MENU 

• Again, if you have an expense account that you think you 
won't need next year, select the proper category above and 
change it to 0. Otherwise, select Not Deductible, then the 
Enter/Change Data option, and finally item 2, Correct. Type 
1 for the item number, and retype the indicated expense ac- 
count title as shown without change. TMs will cause PAM to 
create the EXPDATA file on the new disk. 

• Using PLANNED INCOME and PLANNED EXPEN- 
DITURES, review this year's budget against actual amounts. 
Then revise and put the new budget on the new disk using 
the procedures detailed in Chapters 11 ("Planned Income") 
and 12 ("Planned Expenditures"). 
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Using INVESTMENT, PROPERTY, and UNPAID BILLS 
routines in turn, make a "change" to save these data files 
onto the new disk. 

On January 1, use the ACCOUNT BALANCES routine to 
establish the first of the year balances on the new disk. 

Your disk is now ready for the new year. 
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Income 



Now that you've established your accounting system, you are 
ready to start recording your financial transactions. This 
chapter will describe how to record your income and will then 
show you what kind of income you receive, how much you 
get, and where you put it. Chapter 3 will cover expenses. 

In this system, income means salary or wages, interest re- 
ceived (even if only recorded in your passbook and not ac- 
tually paid), dividends, annuities, and capital gains and losses. 
In short, anything the Internal Revenue Service considers as 
income, you should consider as income, too, and use this rou- 
tine to record it. 

Even though the above list seems to cover pretty much 
everything, not all money received is income. The examples 
that follow and Chapter 4, "Adjustments," give some 
exceptions. 

In recording your income you must use the Type of In- 
come and Disposition of Income (DIS) codes that you estab- 
lished using the PERSONAL DATA routine described in 
Chapter 1. As you already know, the Type of Income codes 
classify your income into categories, wtiile the DIS codes in- 
sure that all income is recorded as having been deposited into 
a bank account or into the CASh account. Consequently, for 
each item of income, you must first determine the proper 
codes that apply to that item before you can record it. 

In addition, you should use your personal list of From 
Whom Income is Received so that income from the same 
source can be combined and summarized. In this case, ab- 
solute consistency is required. For instance, the From Whom 
Income is Received for the American Telephone and Tele- 
graph Company shouldn't be AT&T once. Am. T & T another 
time, and AT & T still another time. Names not on your list 
will be accepted, but it's best to put them on your list so that 
you can detemune the exact spelling as needed. After all, you 
should know where your income is coming from. 

If you have a printer, the printouts prepared by this rou- 
tine are useful for entering data since you can copy repeat en- 
tries directly. This saves time and helps considerably in 
making sure that similar transactions are treated the same way 
each time. 
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Also be sure to keep each month's income separate so / j 

that your records are accurate. If you run one month's income — ■' 
into another, comparisons between budgeted and actual in- 
come received are no longer meaningful. \ i 

To make using this routine easier, keep a notebook (hand- — I 
written if necessary) of your standard lists of Types of Income, 
Disposition of Income, and From Whom Received. Even , 
though this information can be displayed on your monitor at LJ 
any time, you will find it easier and faster, when entering 
many items, to look them up in your notebook. 

One final note: This routine will hold 200 entries each 
month. 



Getting Started 

Each month, use the PLANNED INCOME (Chapter 11) rou- 
tine to create a worksheet on which you can temporarily 
record your income for the month. Then, when convenient, 
you can record several entries at one time. Ideally, financial 
transactions should be recorded as they occur or soon 
thereafter. 

When you select INCOME from the Main Menu, you will 
be given the following options: 
INCOME 

1. ENTER/CHANGE DATA 

2. VIEW INCOME FOR MONTH 

3. VIEW INCOME FOR YEAR 

4. VIEW INCOME BY TYPE 

5. MAIN MENU 

Select item 1 if you want to record new income or make any 
changes. To see what you've already recorded, select items 2 
through 4. When you've finished recording your income, se- 
lect item 5 to return to the Main menu. 



Specifics 

Selecting item 1, Enter/Change Data, yields the following menu: 
ENTER/CHANGE DATA 

1. START NEW MONTH 

2. ADD NEW INCOME 

3. CORRECTIONS 

4. DELETE 

5. INCOME MENU 
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Be careful when you select the Start New Month option 
because if data for that month has already been entered, this 
option will erase that data. If you're not certain if you've 
estabhshd a file for that month yet, check first. Return to the 
INCOME menu by selecting Income Menu, then call the View 
Income for Month routine (item 2). 

If you receive a predictable income each month (for ex- 
ample, $300.00 each month from Social Security), you may be 
tempted to avoid the pitfall described above by simply setting 
up a file for each month of the year early in January. It sounds 
good. You know for certain that there is a file and you then 
avoid using the Start New Month option for the rest of the 
year. Additiorial income is simply added when received. But 
this isn't as smart as it sounds. Doing so will invalidate the 
INCOME (for year), EXPENSE (for year), ACCOUNT BAL- 
ANCES, and BALANCE SHEET routines and will sharply re- 
duce the benefits to be gained from this system. For example, 
ACCOUNT BALANCES will report money in the bank that 
isn't there yet. As a general rule, then, don't set up files ahead 
of time and don't record income before you receive it. 

Selecting items 2 through 4 of the Enter/Change Data 
menu allows you to record your income, add to it, correct it, or 
delete it. 

When you select Add New Income (or Start New Month, 
after determining that you haven't established a file yet for 
that month), you will be asked to supply the following 
information: 

Day. Type in the day of the entry using two digits. For 
the first of the month, type 01, and so on. 

Type of Income. Use the appropriate number from your 
list. If you don't have a hard copy of the list, typing T will en- 
able you to see it on your monitor. 

From Whom. Tjrpe in the name of the one who is paying 
you exactly as spelled in your personal list of From Whom In- 
come is Received. Typing F will enable you to see the list on 
your morutor. A name not or the list wUl be accepted, but this 
should be the rare exception. 

Disposition of Income. Type the three-letter code from 
your personal list which identifies where you are depositing 
this money. For example, use CHE if you're depositing these 
funds into the checking account. Be sure to use the correct 
Disposition of Income code for each entry. If you don't have a 
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hard copy of the list, typing D will enable you to see it on 
your monitor. 

Amount. Type in the amount received. You will then be 
asked 

ANOTHER ITEM? (Y/N) 

If you have additional items to record, type Y, and if not, an- 
swer N. Your data will be saved and then displayed on the 
screen. Check for any errors. 

Making corrections is even easier. Here, PAM will display 
a list of the items in that month's file along with an item num- 
ber. Remember the item number and type it in when asked. 
That item will then be displayed one line at a time. If you 
have no change to make in that line, press RETURN (this will 
leave the information unchanged) until PAM displays that part 
of the data that you wish to correct. Then, type in the cor- 
rected data. Continue pressing RETURN until the computer 
takes over. PAM will then ask ANOTHER ITEM?. You can 
correct as many items as you wish. 

DELETE will also display a list of items in that month's 
file along with an item number. T5^e in the item number 
when asked, and PAM will erase that item. Here again you 
will also be asked ANOTHER ITEM?. If you delete a second 
item, you will see the first item listed as 

Pay no attention to this; it's just a reflection of what is in the 
computer's memory and not what's in the file. When you've 
fiiushed deleting, this item will disappear completely. 

Now that we've gone through the procedure, let's look at 
some specific examples. 

If you put parts of your paycheck into different bank ac- 
counts, then you must make a separate entry for each part. 
Consider an example where your gross pay from the Jones 
Manufacturing Company is $500.00 per week. You've estab- 
lished 6 as the Type of Income code for your regular pay (see 
Figure 1-3). Based on a review of your planned expenditures 
for this week, you determine that you need to distribute your 
paycheck as follows: 

SAVings Bank: $ 37.00 

CHEcking: $200.00 

CASH: $213.00 

RETirement (IRA): $ 50.00 
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In this case, you must make four separate entries to record 
your pay. Figure 2-1 shows what these entries look like. 

As another example, since income tax refunds aren't in- 
come (under tax law at this writing), don't use this routine to 
enter them into the system. Instead, see the ADJUSTMENTS 
routine (Chapter 4) for an explanation of how to handle 
money received which isn't classifiable as income. 

For another example, let's say the Joneses want to go to 
the theatre with you. Jim Jones gives you $20.00 to pay for 
their share of the tickets. This $20.00 isn't income, and you 
shouldn't list Jim Jones on your From Whom Income is Re- 
ceived list. 

This is a case where someone else's money is mixed in 
with yours. This is rare for business, but common with house- 
hold accounts. For example, if you pay for the tickets by 
check, you would deposit Jones' $20.00 into your checking ac- 
count. Some entry in your accounting system seems to be nec- 
essary to offset that deposit. However, since this is not 
income, you shouldn't make an entry by using the INCOME 
routine. The ADJUSTMENTS routine (Chapter 4) will resolve 
this example. 

You can minimize the amount of work you put into your 
accounting system by reducing the number of entries that you 
make. For instance, you can record your net (take-home) pay 
instead of your gross pay. This way, you would simply let 
your employer keep track of your deductions. 

For those who choose to enter their net pay as income, 
they can use the EXPENSE routine (Chapter 3) once a month 
or even once a year for recording payroll deductions as one 
lump sum. Such deductions as income taxes, FICA, medical 
expenses, retirement plan contributions, life insurance, and 
other payroll deductions may be suitably handled in this way. 
When your employer has notified you of the total cost of these 
items for the year, then use the INCOME routine to enter the 
sum of all of these as income, with DIS to CAS; then use the 
EXPENSE routine to charge off these items as expenditures 
against the proper expense account from the CASh account. 

Chapter 3 discusses this procedure in detail; it is noted 
here only as a suggestion and to show the flexibility possible 
with PAM. It allows you to choose between detailed, specific 
entries or more general, block entries. After you've used PAM 
awhile, you can decide which you like better. 
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View Income 

Selecting View Income for Month from the INCOME routine 
menu will display on the screen all of your income entries for 
a month. You will be asked to t5^e in the month number (two 
digits). 

Figure 2-1 . Sample Income for Month Report 

JOHN it JOAN SMITH 212 
JANUARY 19BS 

INCOME 

DATE TY FROM WrtJM DI8 AMOUNT 



1 


01 


1 


GTE 


SAV • 


75.00 


1 


03 


b 


JONES MFG 


RET • 


50.00 


1 


03 


& 


JONES MFG 


SAV « 


37.00 


1 


05 


6 


JONES MFG 


CHE « 


200.00 


1 


03 


6 


JONES MFG 


CAS • 


213.00 


1 


IS 


1 


RCA 


SAV * 


50.00 


1 


31 


2 


SAVINGS BANK 


SAV • 


17.39 



TOTAL • 642.39 



Selecting View Income for Year causes PAM to run 
through all your income entries from the beginning of the year 
to date, combining entries where the From Whom Received 
name is exactly the same, summing up and displapng the re- 
sult on the screen. 

Figure 2-2. Sample Income for Year Report 

JOHN tc JOAN SMITH 

INCOME FOR 19B5 
TYPE FROM WHOM RECEIVED 



1 GTE 

6 JONES MFG 

1 RCA 

2 SAVINGS BANK 



130 



AMOUNT 



• 300.00 

• 26000.00 

• 200.00 
20B.6B 

TOTAL * 26708.68 
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Selecting View Income by Type will do the same thing 
except that only one type of income will be displayed. 

Figure 2-3. Sample View Income by Type Report 

JOHN tc JOAN SMITH S21 
DIVIDEND 

INCOME FDR 19B5 

TYPE FROM WHOM RECEIVED AMOUNT 



1 BTE • 300.00 

I RCA « 200.00 



TOTAL « SOO.OO 



Reports 

This routine will provide you with a display of your income 
for any month, a report of total income for the year to date, 
and a similar report by t5^e of income. (See Figures 2-1 
through 2-3.) 

These reports show you what income you received during 
any month and for the year to date. They can be used as a 
check on the accuracy of your records, but more important, 
they show you precisely how much money you are making so 
that you will know what you can afford to spend. This is, after 
all, what accounting records are for. 

Don't forget that the PLANNED INCOME routine (Chap- 
ter 11) can provide you with reports comparing your budget 
estimates with actual income. Also, STATEMENT OF IN- 
COME and EXPENSE reports (Chapter 10) makes direct 
comparisons between actual income and expenses. 
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Expense 



Now that you know how much money you're making, let's see 
how and where you're spending it. Unfortunately, we 
won't find out if you have any money left over until we get to 
Chapter 10, but in the meantime, as you will soon see, we're 
going to get some good information here. 

The EXPENSE routine records your expenditures. When- 
ever money leaves your possession, whether by cash or check, 
you've made an expenditure. If you use a credit card or are 
charged a fee of some kind, you've incurred an unpaid bill. 
But you haven't made an expenditure until you actually pay 
the bill. 

You will recall that one of the fundamental principles of 
cash accounting is that all expenditures are paid by CHEck or 
CASh. To implement this, the INCOME routine assigns part of 
your income to the CASh account, some to the CHEcking ac- 
count, and the rest elsewhere; the TRANSFER routine moves 
money from one bank account to the CASh account (or to the 
CHEcking account) as you need it; and the EXPENSE routine 
uses the Sources of Funds code to charge the expenditure 
against either the CASh or the CHEcking account as ap- 
plicable. In a nutshell, that's how it works. 

You must develop your own routine to record expenses in 
a timely and accurate manner. Be especially careful with items 
that you will pay for by monthly payments. It is easy here to 
enter the purchase and then enter the pajonents each month, 
thereby entering the expenditure twice. In this case, you 
shouldn't record the initial purchase (see the examples which 
follow). 

Also be sure to keep each month's expenses separate so 
that your records are accurate. If you run this month's ex- 
penses into another month, comparisons between budgeted 
and actual expenditures are no longer meaningful. 

You must use the Type of Expense codes and the Expense 
Accounts that you established using the PERSONAL DATA 
routine described in Chapter 1. This routine will not accept 
Type of Expense codes or Expense Accounts that aren't on 
your list. 

To make using this routine easier, keep a notebook of 
your standard lists of Types of Expense and Expense Ac- 
counts. You'll find it easier and faster to look them up in your 
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notebook than to take the time to display them on the screen. 

In addition, printed copies of reports prepared by this rou- 
tine are useful in entering data since you can copy repeated 
entries directly and exactly. This saves time and helps consid- 
erably in maldng sure that similar transactions are treated the 
same way each time. As with all computer programs and 
accounting systems, consistency is important. 

The EXPENSE routine will hold 200 entries each month. 



Detailed Versus Preexpended 

You can keep as detailed an accounting of your expenditures 
as you wish. What this means is that for a detailed accounting, 
you must set up an expense account for each kind of expense. 
Specific expense accounts for a detailed accounting system 
would be, for example, 

ALLOWANCE-DAD 

ALLOWANCE-MOM 

ALLOWANCE-SON 

If, on the other hand, this isn't a significant expense to you 
and you can get by with a slightly less-detailed accounting, 
then ALLOWANCE could include all allowances for the entire 
family. The choice is yours. 

The more detailed the accounting, the more entries you 
will have. For example, keeping detailed entries of your pay- 
roll deductions each payday means that you must record up to 
7 or more entries each time you get paid. If you are paid each 
week, this alone would require 28 or more entries per month. 
The disadvantage of repetitive entries is that other expen- 
ditures will tend to be covered up by this multiplicity of rou- 
tine entries, making the study of your financial reports more 
difficult. 

The problem of repetitive entries can be alleviated some- 
what by using the preexpended system for recording expen- 
ditures. The preexpended concept simply means that 
unimportant and similar items are merged and recorded once 
for the month (or even for the year if possible). There are two 
ways to do this: The Petty Cash Fund and the Peanut Butter 
Jars Fund. Each is a little different. 

A Petty Cash Fund can be set up to be used for payment 
of small amounts. A check is drawn for, say, $25.00. The 
check is cashed and the money placed in a box or drawer. 
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When payments are made for such items as postage, news- 
papers, or bus fare, the items are listed on a printed form or a 
blank sheet of paper. When the fund is nearly exhausted, the 
items are summarized, the expenditures recorded, and a check 
drawn to cover the exact amount spent. The check is cashed 
and the fund replenished. At all times the cash in the drawer 
plus listed expenditures will equal the amount of the fund. 

With the Peanut Butter Jars Fund, you set up a number of 
containers — one for each specific, planned expenditure (for ex- 
ample, food, car repairs, and gasoline). When called for in the 
budget, you record the expenditure when you put money in 
the jar. 

For example, your budget states that you will spend 
$200.00 in January and again in July for car repairs. Obvi- 
ously, you cannot predict when the car will break down, but 
you did the cautious thing and budgeted for it. It doesn't make 
sense to budget $30.00 a month for car repairs with PAM, as 
car repairs tend to come in larger amounts. Budgeting for this 
eventuality in small monthly amounts would result in your 
financial reports showing under-expenditures for many months 
(in which case you might be tempted to spend the money for 
something else), and eventually a substantial over-expenditure 
in one month. In short, it would make interpreting your re- 
ports much more difficult. The Peanut Butter Jars Fund then is 
ideal for this. Here's how it would work in this case. 

In January, put $200.00 in a jar and label it Car Repair. 
Using this routine, record this as an expenditure. When your 
car needs work (oil change, grease, tune-up, tires, or general 
repair), take the money from the jar to pay for it. No record is 
made, since the whole $200.00 has already been charged to 
the Car Repair jar. 

If you spend more than the amount of money in the jar, 
be sure to record the difference as an additional charge against 
that expense account. 

Similarly, if you estimate that you will spend $60.00 per 
month for gasoline, on the first of each month, make one en- 
try of $60.00 for Gasoline. Put $15.00 each payday into a PAM 
jar labeled Gasoline and use that to pay for your gasoline. 

Note that with the Petty Cash Fund, expenditures are re- 
corded after they are made; with the Peanut Butter Jars, the 
expenditure is recorded when the money is set aside. 

You can save yourself time and trouble by using the 
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preexpended concept that applies to you. For those little daily 
expenditures, this is easier than charging each one individ- 
ually. But, remember, if you want to record each penny spent 
at the time that it is spent, then do so. If you wish, you can 
combine both techniques. There is no limit to the flexibility 
and no restriction on how entries are made. There are some 
rules you should follow, but no matter which system you use, 
the total at the end of the month (or year) should be accurate. 
The main purpose of financial records is to provide a basis for 
financial decisions. If it really costs you $500.00 a year to 
maintain your car, for example, then your records should 
show it. 



Getting Started 

In this accounting system, there are only two ways that you 
can spend your money: by check or by cash. These are your 
Sources of Funds. Decisions on how to treat expenditures are 
made on the basis of whether you paid by check or cash. 
Again, the items you purchase with a credit card aren't re- 
corded until you pay for them with a check or cash. It's not 
how you buy that counts, but how you pay. 

Each month, use the PLANNED EXPENDITURES routine 
to create a work sheet on which you can temporarily record 
your expenses for the month. Then, when convenient, you can 
record a number of entries at one time. 

When you select EXPENSE from the Main Menu, you will 
be given these options: 

EXPENSE 

1. ENTER/CHANGE DATA 

2. VIEW EXPENSE FOR MONTH 

3. VIEW EXPENSE FOR YEAR 

4. VIEW EXPENSE BY TYPE 

5. MAIN MENU 

Select item 1 if you want to enter new expenses or make any 
changes. To see what you've recorded, select items 2 through 4. 

When you've finished using this routine, select item 5 to 
return to the Main Menu. 
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Specifics 

Selecting Enter/Change Data yields the following menu: 
ENTER/CHANGE DATA 

1. START NEW MONTH 

2. ADD NEW EXPENSE 

3. CORRECTIONS 

4. DELETE 

5. EXPENSE MENU 

Be careful when you select the Start New Month option. 
If you've already entered data for that month, selecting this 
option will erase that data. If you're not certain if you've 
established a file for the month yet, check first. Return to the 
EXPENSE menu by selecting Expense Menu, then call the 
View Expense for Month routine. 

If you have a predictable expenditure each month (for ex- 
ample, your mortgage or car payment), you may be tempted 
to avoid the pitfall described above by simply setting up a file 
for each month of the year early in January. As stated for in- 
come in Chapter 2, it sounds good. You know for certain that 
there is a file and you then avoid using the Start New Month 
option for the rest of the year. Additional expenditures are 
simply added when paid. But doing this will invalidate the Ex- 
pense for Year, Account Balances, and Balance Sheet routines, 
and sharply reduce the benefits provided by this system. The 
Statement of Income and Expense for Year to Date (Chapter 
10), for instance, will show expenditures that haven't yet oc- 
curred. As a general rule, then, do not set up files ahead of time. 

Selecting items 2 through 4 of the ENTER/CHANGE 
DATA menu allows you to enter, add, correct, or delete 
expenditures. 

When you choose item 2, Add New Expense (or item 1, 
Start New Month, after determining that you haven't estab- 
lished a file yet for that month), you will be asked to supply 
the following information: 

Day. Type in the day of the entry using two digits. 

Type. Use the appropriate number from the Type of Ex- 
pense list. If you don't have a printout of the list, typing T will 
enable you to see it on your monitor. 

Note that once you've specified the expense type number, 
you are then limited to expense account numbers that are 
within these specified ranges: 
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Type 



Account Number 



1 
2 
3 
4 



1-59 
60-84 

85-98 
100-139 



Account No. Use an expense account number from your 
list of Expense Accounts that is within the range allowed by 
the Type of Expense previously specified. If you don't have a 
printout of the list, typing T will enable you to see it on your 
monitor. 

You must use one of the expense accounts listed. You can 
add or rename an expense account only by using the PER- 
SONAL DATA routine discussed in Chapter 1. If you are 
entering an expenditure and you don't see the right account, 
use Other or Miscellaneous (which you should have pre- 
viously established). Later, set up the account you want and 
transfer the data using the Change option of this routine. 

You need to type oiUy the account number; PAM will 
provide the account name. 

CHEck No. or CAS. If you are paying by check, type in 
the check number; otherwise, type in CAS. 

Amount. Type in the amount spent. You will then be 
asked 

ANOTHER ITEM? (Y/N) 

Type Y (yes) or N (no) as appropriate. If you answer N, your 
data will be saved, then displayed on the screen. Check for 
any errors. 

Making corrections is even easier. Here, PAM will display 
a list of the items in that month's file along with an item num- 
ber. Remember the item number and type it in when asked. 
That item will then be displayed one line at a time. If you 
have no change to make in that line, press RETURN (this will 
leave the information unchanged) until PAM displays the part 
of the data that you wish to correct. Then, type in the cor- 
rected data. Continue pressing RETURN until the computer 
takes over. PAM will then ask ANOTHER ITEM?. You can 
correct as many items as you wish. 

Note that Corrections gives you the opportunity to change 
the name of an expense account. Don't do it, however; this 
will only add confusion and chaos to your system. If you need 
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an expense account with a particular name, use the PER- 
SONAL DATA routine of Chapter 1 to set it up. 

The Delete option will also display a list of items in that 
month's file along with an item number. T3^e in the item 
number when asked, and PAM will erase that item. Here 
again you will also be asked ANOTHER ITEM?. If you delete 
a second item, you will see the first item listed as 
21 ZZZZZZZZZZZZZZZ 0.00 

Pay no attention to this; it's just a reflection of what is in the 
computer's memory and not what's in the file. When you've 
finished deleting, this item will disappear completely. 

Be careful to enter expenses only once. Remember that 
the Creditor list represents expense accounts (account numbers 
100-139). If you buy a computer and charge it to your credit 
card, then you cannot record the purchase as an expense (but 
do make a record of it using the PROPERTY routine described 
in Chapter 7). The expenditure will be recorded when you 
send a check to the credit provider. For example, 

ACCOUNT NUMBER TO WHOM PAID AMOUNT 
96 EQUIPMENT-COMPUTER $200 

100 CREDIT CARD BANK 50 

Both accounts 96 and 100 are expense accounts, and each 
month as you write a check (and enter it) you will be adding 
to the duplication of entry. Since you will be wanting to log 
every check, the solution in this case isn't to enter this expen- 
diture into account 96 but instead to list it under PROPERTY 
(Chapter 7). As the months go by and you record a payment 
to your bank of $50.00 each month, that expense account will 
eventually show your expenditure of $200.00. 

Also, remember that if you take money from a bank ac- 
count, it's a transfer and not an expense. See Chapter 4. 

If the bank pays your car loan by transferring money from 
your savings account (or checking account), then a transfer and 
an expenditure have taken place. You must make two entries. 
First, you should execute a Transfer any time money is taken 
from a bank account (withdrawals by you, the bank, or any- 
one else). If the money is to be spent, then transfer the money 
to the CHEcking or CASh Account. When you've spent the 
money, then use the EXPENSE routine and record the 
expenditure. 
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A tj^ical paycheck might be itemized as follows: 



Gross pay $500.00 

Federalincome tax —100.00 

State income tax —25.00 

PICA tax -35.00 

Medical insurance —20.00 

Life insurance —5.00 

Union dues —2.00 

Retirement plan —50.00 



Take-home pay $263.00 



Consider recording only the net (take-home) amount re- 
ceived. At the end of the year, your employer must report to 
you the amount deducted from your pay for the first three 
items. The others are easy to calculate, although most employ- 
ers will also report these amounts as well. When your em- 
ployer does, you can make lump sum entries for the year as 
follows. 

Use the INCOME routine to enter the sum of all these as 
INCOME, with DIS to CAS; use the EXPENSE routine to 
charge off these items as expenditures from the CASh 
Account. 

Naturally, if you wish, you can enter each of the above 
items every week. The advantage here is that you can know 
during the year how much these items are adding up to. The 
disadvantage, of course, is the large number of entries that 
you must make each month. 

By now, you should know that credit-card purchases are 
not recorded as expenditures because no funds are actually spent 
at the time of the purchase. These expenditures are recorded as 
payments are made. In this event, the purchase will not be 
categorized (as furniture, clothes, or whatever) unless you 
make deliberate corrective entries. If you spend $100.00 for 
clothes and charge them to your card, you make no immediate 
entry. On January 1 you pay $50.00; on February 1 you pay 
$50.00. Enter each item when it's paid using EXPENSE and 
charging it against your bank card. This is all you need to do. 

However, if you pay in full during the year, you can de- 
lete the entries above and make one entry to Clothes for 
$100.00. If the items are not fully paid for during the same 
year, you can charge the Clothes account only the amount 
that was paid during the year. This is, after all, a cash-basis 



40 



CHAPTER 
THREE 



accounting system. The remainder of the expenditure must be 
charged next year as paid. 

In a cash-basis accounting system, you can pay out the 
cash only once. Consequently, you must decide which alter- 
native is best for you. The alternative described above is gen- 
erally supported here because pa)nnent to the credit-card bank 
will probably be by check. In order for your accounting system 
to parallel your checkbook, you will want to record each check 
individually and not lump them. 

If, for example, you just bought a new bedroom set for 
$2,000.00 and took the money from the SAVings Account to 
pay cash, is this really an expense? No. An expense, in the 
case of an individual is really only the cost of daily living. 
This includes the cost of furniture, automobiles, and so on. But 
that cost should be spread out over its useful life. This is 
called depreciation and since it complicates our accounting sys- 
tem, we will avoid it until Chapter 7 (the PROPERTY routine). 

For durable goods (that is, furniture and other items that 
last for many years), you should use ADJUSTMENTS (Chapter 
4) to reduce your balance in SAVings: 

0301 SAV Furniture -2000.00 

and PROPERTY (Chapter 7) to record the acquisition. 

Even though this procedure is technically correct, perhaps 
it would be better to set up an expense account for Furniture 
and charge it off just like any other expenditure. This is be- 
cause it is simpler (the example is much more complicated if 
you pay by check); it will tell you how much you spend for 
furniture during the year; it won't affect the BALANCE 
SHEET routine at all; and the STMNT OF I&E routine will 
more clearly reflect what you've done. 

If you do record this as an expense, then, as with other 
expenses. Transfer what you need from SAVings to CASh. As 
before, be sure that you also record this purchase using the 
PROPERTY routine (Chapter 7). 

As another example of the decisions you need to make 
when using PAM, consider the situation where you've run out 
of food money and must buy $13.00 worth of food with your 
personal allowance. Your allowance has already been recorded 
as spent. The original entry was 

01 1 6 ALLOWANCE-DAD CAS $80.00 
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This example applies whenever you wish to change a re- 
corded expense. Since food is an expenditure you would nor- 
mally monitor, using your allowance money to buy food 
requires a correction to your records. The desired effect is to 
decrease the amount recorded as spent for Allowance and in- 
crease the recorded expenditure for Food. Use the Corrections 
option. When you're finished, the entries should look like this: 

01 1 6 ALLOWANCE-DAD CAS $67.00 

01 1 8 FOOD CAS $13.00 (plus what was orig- 

inally recorded for Food on 
that date) 

Is buying securities an expense? No, it is a transfer, 
usually from SAVings or CHEcking to INVestments (see 
Transfer in Chapter 4). 

For additional examples, see the other chapters which dis- 
cuss income and expenses. 



View Expense 

Choosing View Expense for Month will display on the screen 
all your expense entries for a month. You will be asked to 
t5^e in the month number (two digits). 

Figure 3-1. Sample Expense for Month Report 

JOHN & JOAN SMITH 213 
JANUARY 19B5 



EXPENSE 



DATE 


TY 


ACT 


TO WHOM 


CHE 




AMOUNT 


1 01 


1 


6 


ALLOMANCE-MINE 


CAS 


« 


80.00 


1 01 


4 


100 


VISA BANK 


347 


» 


50.00 


1 01 


1 


14 


LAUNDRY 


CAS 




12.89 


1 03 


2 


62 


UNION DUES 


CAS 




2.00 


1 03 


1 


30 


LIFE INSURANCE 


CAS 




5.00 


1 03 


2 


69 


MEDICAL INSURAN 


CAS 




20.00 


1 03 


1 


3 


TAXES-PICA 


CAS 




35.00 


1 03 


2 


66 


TAXES-STATE 


CAS 




25.00 


1 03 


1 


2 


TAXES-FEDERAL I 


CAS 




100.00 


1 05 


3 


87 


CLOTHES 


345 




123.45 


1 07 


1 


IS 


MAGAZINES/BOOKS 


CAS 




21.95 


1 09 


4 


108 


FILENE 


346 




78.99 


1 12 


1 


19 


POSTAGE 


CAS 




2.00 


1 15 


3 


89 


ENTERTAINMENT 


348 




20.00 










TOTAL 


• 


576.28 
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ri Selecting 3, View Expense for Year, will cause PAM to 

' run through all your expense entries from January 1 to date, 

combining like entries (where the expense accounts are exactly 
j~? the same), summing up, and displaying the result on the 

screen. 

r-| Figure 3-2. Sample Expense for Year Report 

JOHN ti JOAN SMITH 130 

EXPENSE FOR 1985 



ACT TO WHOM PAID AMOUNT 



6 


AtLOMANCE-MINE 


« 4160.00 


87 


CLOTHES 


• 856.25 


89 


ENTERTAINMENT 


« 266.32 


108 


FILENE 


• 261.35 


14 


LAUNDRY 


• 643.59 


30 


LIFE INSURANCE 


* 260.00 


IS 


MAGAZINES/BOOKS 


• 93.07 


69 


MEDICAL INSURAN 


• 1040.00 


19 


POSTAGE 


« 38.80 


2 


TAXES-FEDERAL I 


♦ 5200.00 


3 


TAXES-FICA 


• 1820.00 


66 


TAXES-STATE 


♦ 1300.00 


62 


UNION DUES 


« 104.00 


100 


VISA BANK 


* 600.00 



TOTAL « 16645.38 



Selecting View Expense by Type will do the same thing 
except that only one type of expense will be displayed. 

Figure 3-3. Sample Expense by Type 



JOHN t( JOAN SMITH 
DEDUCTIBLE 



534 



EXPENSE FOR 1985 



ACT 



TO WHOM PAID 



AMOUNT 



69 MEDICAL INSURAN 

66 TAXES-STATE 
62 UNION DUES 



» 
« 



1040.00 
1300.00 
104.00 



TOTAL 



2444.00 
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Reports 

This routine will provide a display of your expenditures for 
any month, a report of total expenses for the year to date, and 
a similar report for each t5^e of expense. 

These reports show what expenditures were made during 
any month and for the year to date. They can be used as a 
check on the accuracy of your records, but more important, 
they show precisely how much money you spent and where. 
This is, after all, what accounting records are for. 

Don't forget that the PLANNED EXPENDITURES routine 
can provide you with reports that compare your budget es- 
timates against actual expenses. Also, STATEMENT OF IN- 
COME and EXPENSE reports make direct comparisons 
between actual income and expenses. 
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Adiustments 



ome people believe that it's more difficult to set up an 
accounting system for a household than it is for a large 
corporation. Consider that with a business, money coming in 
is income — what goes out is expense. Everything is black-and- 
white, and there is nothing in between. Families, on the other 
hand, have household accounts and personal accounts. For ex- 
ample, the wife and the husband may both have savings ac- 
counts (or money in the cookie jar) which they consider 
personal money — not part of the household finances. This 
causes no difficulty until one of them wants to use the house- 
hold checkbook to spend it. When this happens, personal sav- 
ings then get mixed into the household accounting system. 

On such occasions, the individual will deposit personal 
money into the bank and issue a check. This money isn't in- 
come, so the INCOME routine (Chapter 2) cannot be used to 
log it as a deposit into the checking account. On the other 
hand, the check can be logged as an expenditure using the EX- 
PENSE routine (Chapter 3). The net result is that your check- 
book may agree with the bank, but because this deposit 
wasn't logged into the accounting system, the ACCOUNT 
BALANCES routine (Chapter 5) will show an incorrect check- 
book balance. You need some way to enter money into the 
household financial system in these situations. 

Here's another problem. What if you have money in the 
savings account and want to spend some of it. The accounting 
system requires first that this money be either in the checking 
account or in your pocket. How do you get it there? You can't 
use the INCOME routine because it's not new money (that is, 
it was in the bank already). What can you do? 

This is where the ADJUSTMENTS routine comes in. Be- 
cause there are two types of problems, this routine is made up 
of two parts: Adjustments and Transfers. 

Adjustments allows you to bring money in or take money 
out of the system when the INCOME routine doesn't apply. 
The Adjustments subroutine will accommodate up to 100 
items per year. 

Transfers is used to move money from one DIS account to 
another. The Transfers subroutine will accommodate up to 150 
items per year. If this number is insufficient, you can make 
more room by eliminating offsetting items. 
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For example, if you run out of room in Transfers in 
December, you should get a listing of your transfers for the 
year and look for entries that offset each other: 

0216 CAS CHE $100.00 
0401 CHE CAS $75.00 
0612 CHE CAS $25.00 

While it was necessary in February, April, and June for 
these entries to be separate, that is no longer the case in 
December. Since these entries exactly cancel each other, you 
may use the Delete function and delete them all. 

In the above example, if the amounts didn't exactly cancel 
each other, you could use the Correct function to break up one 
of the amounts to effect a cancellation between two of the 
three. 

Finally, it will be easier later on when you're checking the 
accuracy of your accounting system if your accounting system 
entries parallel what you actually do. Spending money, for in- 
stance, usually requires two steps: going to the bank to take 
the money out and going somewhere to spend it. 

Your accounting entries should also consist of two steps 
in which you first record the withdrawal from the bank 
(transferring it from you bank DIS to CASh or CHEcking), 
then record the expenditure. You cannot, for instance, combine 
the two steps and transfer money directly from a bank account 
to an expense account. Remember our principle: Money can be 
spent only by CASh or CHEck. There is an exception, how- 
ever; you can get rid of your money by adjustment. See the 
examples below. 



Getting Started 

When you select item D, Adjustments, from the Main Menu, 
you will be asked to choose from one of the following: 
ADJUSTMENTS 

1. ADJUSTMENTS 

2. TRANSFERS 

3. DISPLAY 

4. MAIN MENU 

Selecting item 1 or 2 will lead you to the following menu: 
ENTER/CHANGE DATA 
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1. ADD NEW DATA 

2. CORRECTIONS 

3. DELETE 

4. RETURN TO MENU 

You can add new items or make corrections or deletions to 
existing items as needed by selecting the desired option. 

Selecting item 3, Display, from the ADJUSTMENTS rou- 
tine menu allows you to see on the screen all adjustment or 
transfer items contained in the file based on these categories: 

DISPLAY 

INDIVIDUAL ADJUSTMENT ITEMS 
SUMMARY OF ADJUSTMENTS 
INDIVIDUAL TRANSFER ITEMS 
SUMMARY OF TRANSFERS 

Samples of these displays are shown in Figures 4-1 through 
4-4, which serve as additional examples. 

When you're finished with this routine, select item 4 to 
return to the Main Menu. 



Adjustments 

Adjustments will not be used frequently — after all, how often 
do you receive unearned money? Remember that Adjustments 
is used to adjust your accounting records for money received 
that isn't income or to remove money from the system that 
wasn't spent, but is nevertheless no longer a part of the sys- 
tem. Some examples follow. 

What happens when you receive your income tax refund 
and deposit it into your SAVings Account. How do you enter 
it into the system? Use one of the options below, but not both, 
depending on your preference. 

(1) A tax refund is money received which isn't income. 
Use the Adjustments routine and enter the following into your 
SAVings Account: 

0312 SAV INCOME TAX REFUND 123.45 

(2) If you recorded an Income Tax expense in last year's 
records, you might want to go back and change the amount. If 
you do that, then don't do option 1 above as this amount will 
show up in your SAVings Account January 1 Balance. Of 
course, you will have to change all of your end-of-year 
reports. 
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What if you've deposited $12.50 in pennies you've been 
saving into the SAVings account? Here's another case where 
you need to enter money into the system which isn't classifi- 
able as income. Use the Adjustments routine: 

0204 SAV PENNIES 12.50 

Consider the case where you've borrowed $500.00 from 
the First National Barik to buy furniture. This isn't income but 
you must record it as a deposit to the CHEcking or CASh 
account: 

0415 CHE LOAN 500.00 

What if a husband and wife decide to split the savings ac- 
count into two accounts (his and hers). One account will re- 
main as the household account but the other account is to be 
personal and not within the household accounting system. 
The personal account will amount to $1,000.00. What now? 

The personal account's share of the savings account must 
be taken out of the system. It isn't an expenditure, so the EX- 
PENSE routine cannot be used. This is a rare example of how 
you can "spend" money other than by check or cash. Here, 
we use ADJUSTMENTS to do it: 

0518 SAV PERS ACCT WITHDRAWAL -1000.00 

(Note the negative sign before the amount.) 



Transfers 

The Transfer routine moves money from one DIS account to 
another without spending any of it. Use it to move your 
money around. For example, if the bank automatically pays 
the car loan from your SAVings Account, here's how to deal 
with the situation. Remember that all expenses (including 
loans, creditors, and so forth) are paid by CHEck or CASh. In 
this case then, use the Transfer routine: 

0101 SAV CAS 123.45 

This will transfer the money from SAVings to CASh thereby 
making the money available to be spent. Then use the EX- 
PENSE routine to record the expense against CAS as the 
Source of Funds. 

What if you want to make a check for $100.00, but need 
to get $50.00 from the SAVings Account and put it into the 
CHEcking Account? This is the normal transaction for 
Transfer: 
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0102 SAV CHE 50.00 

This moves $50.00 from the SAVings Acount into the CHEck- 
ing Account. 

As another example, what if you've just paid $100.00 for 
four shares of stock? How do you record this expenditure? 
Since buying securities isn't an expense but a Transfer (usually 
from either SAVings or CHEcking to INVestments) use 

0324 CHE INV 100.00 

Use the INVESTMENTS routine (Chapter 6) to record all the 
pertinent information about this stock. 



Reports 

This routine will provide you with screen displays and printed 
reports as listed in the Display menu above. Figures 4-1 
through 4-4 show samples of these reports. 

Figure 4-1. Sample Individual Adjustment Items 

JOHN «c JOAN SMITH 810 



ADJUSTMENTS 



DATE DIS EXPLANATION 



AMOUNT 



0204 SAV PENNIES 
0301 SAV FURNITURE 



12.50 
-2000.00 



0312 SAV INCOME TAX REFUND 
0415 CHE LOAN FROM FIRST NA 
0518 SAV WIFE'S WITHDRAWAL 



-1000.00 



123.45 
500.00 
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Figure 4-2. Summary of Adjustments 

JOHN <i JOAN SMITH 



SUMMARY OF ADJUSTMENTS 



DISPOSITION 



BUSINESS 
CASH ACCOUNT 
CHECK INS 
CHRISTMAS CLUB 
INVESTMENTS 
OTHER 

RETIREMENT PLAN 
SAVINSS ACCOUNT 



800 



AMOUNT 



0.00 
0.00 
SOO.OO 
0.00 
0.00 
0.00 
0.00 
-2B64.05 



NET ADJUSTMENTS 



-2364.05 



u 
u 
u 



\ I 



Figure 4-3. Individual Transfer Items 

JOHN tt JOAN SMITH 



TRANSFERS 



DATE 



FROM DIS 



TO DIS 



910 



AMOUNT 



0101 
0102 
0324 



SAV 
SAV 
CHE 



CAS 
CHE 
INV 



123.43 
SO. 00 
100.00 



Figure 4-4. Summary of Transfers 

JOHN «< JOAN SMITH 

SUMMARY OF TRANSFERS 



900 



DISPOSITION 


AMOUNT 


BUSINESS 


0.00 


CASH ACCOUNT 


123.43 


CHECKING 


-30.00 


CHRISTMAS CLUB 


0.00 


INVESTMENTS 


100.00 


OTHER 


0.00 


RETIREMENT PLAN 


0.00 


SAVINSS ACCOUNT 


-173.45 
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Account Balances 



The ACCOUNT BALANCES routine is a real workhorse. If 
you'd like to know what your checkbook balance is or how 
much money you've invested in stocks, bonds, and other 
securities, this routine will calculate it all for you — anytime 
you want to know. 

Specifically, this routine records the balances in all of 
your DIS income accounts as of January 1, computes the bal- 
ances in any one or in all of your DIS accounts at any time, 
and allows you to check on the accuracy of your entries and 
accounting system. 



Getting Started 

When you select E, ACCOUNT BALANCES, from the Main 
Menu, you will be given the following options: 

ACCOUNT BALANCES 

1. JAN 1 BALANCES 

2. INDIVIDUAL ACCOUNTS 

3. CURRENT BALANCES 

4. MAIN MENU 



Specifics 

If you choose Jan 1 Balances you will be asked 
ENTER DATA (E) OR VIEW (V) 

Pressing E will enable you to enter the balance (as of January 
1) in each of your DIS income accounts into the system. This 
is the amount of money in each of your bank accounts as of 
the first of the year. If you used this or another accounting 
system last year, this is the end-of-year amounts; if you didn't, 
you must get this information from your bank books or other 
sources. 

Note that there is no Correct or Change option available. 
All entries are entered new each time, and existing entries are 
erased. Before pressing E, therefore, be sure that you have a 
record of these balances so that you can reenter them. 

Pressing V will allow you to see the January 1 Balances 
previously entered on the screen (see Figure 5-1). 
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Figure 5-1. Sample January 1 Balances 



JOHN <c JOAN SMITH 
1 JANUARY 1985 



20 



ACCOUNT BALANCES 



ACCOUNT 



AMOUNT 



BUSINESS 
CASH ACCOUNT 
CHECK INS 
CHRISTMAS CLUB 
INVESTMENTS 
OTHER 

RETIREMENT PLAN 
SAVINGS ACCOUNT 



67899.30 
0.00 
34873.23 
6734. S6 



23678. 82 



0.00 
34.78 
40.00 



TOTAL 



133260.89 



If you open a new income account during the year, add it 
to the Disposition of Income list using the procedure described 
in Chapter 1. Then add it to the January 1 Balance list with a 

0. 00 balance. As stated in the paragraph above, this means 
that you must redo the whole January 1 Balance listing, so be 
sure that you have all the balances on paper before you start. 

Selecting Individual Accounts, the menu options that you 
will see will be your own personal list of DIS codes. Select the 
DIS account in which you are interested. PAM will then cal- 
culate and display on the screen the following information 
about that account: 

(SELECTED DIS ACCOUNT) 

1. JAN 1 BALANCE 

2. DEPOSITS 

3. EXPENDITURES 

4. TRANSFERS 

5. ADJUSTMENTS 

6. CURRENT BALANCE 

For example, if you select CHEcking Account, this routine will 
give you your January 1 balance, the sum of all deposits, 
checks issued, transfers and adjustments made to your check- 
ing account up to now, and your current checkbook balance. 

A good way to find all of your bank balances at once is to 
choose item 3, Current Balances. PAM will examine all of your 
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entries and compute the current balance for each of your DIS 
accounts as described in the paragraph above. It will then total 
these balances and give you your current assets. This infor- 
mation will be saved for use later in the BALANCE SHEET 
routine (Chapter 9). 

Figure 5-2. Sample Current Balances Report 

JOHN it JOAN SMITH 21 
AS OF 31 DECEMBER 19B5 



CURRENT BALANCES 



ACCOUNT AMOUNT 



BUSINESS 23678.82 

CASH ACCOUNT -3462.01 

CHECKING 8900.86 

CHRISTMAS CLUB 40.00 

I NVESTMENTS 67999 . SO 

OTHER 0.00 

RETIREMENT PLAN 37473.23 

SAVINGS ACCOUNT 6329.74 



TOTAL « 140960. 14 



Figure 5-3. Sample Individual Account Report 

JOHN «, JOAN SMITH 513 
AS OF 31 DECEMBER 19BS 
ACCOUNT BALANCES 

CHECKING 



1 JAN BALANCE 34.78 

DEPOS ITS 1 0400 . 00 

EXPENDITURES -1983.92 

TRANSFERS -SO. 00 

ADJUSTMENTS SOO.OO 



CURRENT BALANCE « 8900.86 



This is a lot of work for the computer. The screen will tell 
you how things are going, but as the year progresses and your 
system contains more and more data, this process will take 
longer and longer. Just be patient and let PAM do the work. 

57 



CHAPTER 
FIVE 



Accuracy Check 

Run the Current Balances subroutine each time you get a 
statement from your bank, then reconcile your balances with 
those reported by the bank. 

This routine will give you the balance remaining in all 
your DIS income accounts and the catch-all CASh Account. 
Remember that this is cash accounting, and that all expen- 
ditures are paid by CHEck or CASh. To implement this, use 
the Disposition of Income codes to deposit part of your in- 
come into the CASh account, the Transfer routine to move 
money from one bank account into the CASh Account (if you 
need it there), and the EXPENSE routine (with the Sources of 
Funds code) to charge expenditures against the CASh Account. 
If you've done everything right, the balance in the CASh Ac- 
count should be zero. If it isn't, then you have an unrecorded 
income, transfer, or expenditure. 

Resolve all problems now. The longer you wait, the more 
difficult it will be to put your accounting records in order. 



Reports 

This routine will provide you with a display of the balances in 
all of your DIS income accounts as of January 1, a similar re- 
port showing the current balances, and individual reports for 
each DIS account showing the January 1 balance, deposits, 
withdrawals, expenses, transfers, and adjustments made to 
that account to date as well as the current balance. Figures 5-1 
through 5-3 show samples of these reports. 

At the end of the year, run the Current Balances option. 
This will be the basis for the Jan 1 Balances that you wHl type 
onto next year's disk; it is also used by the BALANCE SHEET 
routine to compute your total financial condition. 



And Next Year... 

This file cannot be transferred electronically to next year's 
disk. The data must be t5^ed in again. To get ready for next 
year, you need to run the Current Balances option as sug- 
gested above; print out or write down the end-of-year bal- 
ances for each DIS income account; insert next year's disk into 
the disk drive; select item 1, Jan 1 Balances; then choose the E 
option and t5^e in the balance for each DIS account. 
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nvestments 



The term investments as used here is synonymous with 
securities. This means that the kind of investment portfolio 
that this routine applies to is limited to bonds, stocks, and 
other securities such as certificates of deposits or mutual 
funds. 

Investments in real estate (including rental property), 
coins, paintings, and so on, shouldn't be listed here, but 
should be listed for record and net worth purposes using the 
PROPERTY routine in Chapter 7. 

Any revenues derived from these investments should be 
recorded using the INCOME routine in Chapter 2. 

The INVESTMENTS routine covered in this chapter 
records the following information about each of your 
securities: 

Bonds: company name 
date pxirchased 
number of bonds 

total cost 

annual amount of interest for each 
maturity date 

Stocks: company name 
date purchased 
number of shares 
total cost 

annual dividends per share 

Other: company name 
date purchased 
amount invested 

annual amount of interest for each 
maturity date 

Have this information handy when you record a new 
investment. Once you have a new investment recorded, this 
routine will then calculate the following: 

Bonds: cost per bond 

percentage jdeld 

total annual interest paid 

total ciurent value of each investment 
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Stocks: cost per share 

percentage yield 

total dividend amount paid 

current gain/loss per share 

current percentage yield 

total current cost 

total current gain/loss 

date price quotation was entered 

Other: percentage yield 

current value of each investment 

Periodically, you can obtain current price quotations and 
record the applicable date and price. In lhat case, "current" 
values calculated above become much more meaningful. 

This routine will hold up to 50 stocks, 50 bonds, and 10 
other items (mutual funds, certificates of deposit, and so forth). 

Note: This routine manipulates large amounts of infor- 
mation. You can expect delays during various operations as 
the computer cleans up after itself and throws out the garbage. 
Be patient — it takes about 60 seconds each time. The program 
will eventually resume by itself. 



Getting Started 

When you choose F, INVESTMENTS, from the Main Menu, 
you will see the following options after the loading process is 
complete: 

INVESTMENTS 

1. BONDS 

2. STOCKS 

3. OTHER 

4. DISPLAY 

5. MAIN MENU 

You can see your securities on the screen by selecting 
item 4, Display. See the section on reports (below) for details. 

Select items 1 through 3 only if you want to add a new 
investment or to change information about an existing one. In 
that case, this menu will appear: 

ENTER/CHANGE DATA 

1. NEW ITEM 

2. CHANGE 

3. DELETE 

A. RETURN TO MENU 



62 



CHAPTER 
SIX 



Select item 1 if you wish to record a new investment, or item 
2 if you purchased or sold shares, changed the amount of 
money in an existing investment, or wish to update your list- 
ing by entering the current price. Select item 3 if you sold an 
existing investment completely. 



Specifics 

Let's start off by looking at how you should handle the pur- 
chase or sale of a security. We'll use stocks as an example, but 
the procedure is the same for bonds and other securities. 

When buying securities, treat the expenditure as a transfer 
and not as an expense. Record your securities purchases as a 
transfer from SAVings (or CHEcking) to INVestments using 
the ADJUSTMENTS routine described in Chapter 4. As you 
would expect, selling securities is a transfer in the opposite 
direction plus an income (gain or loss) entry. 

For example, if you just paid $100.00 for four shares of 
stock, you would use the Transfer routine from Chapter 4 to 
move these funds to INVestments: 

0324 CHE INV 100.00 

Using Stocks, then New or Change (all in the INVEST- 
MENTS routine), record this purchase into your stock portfolio 
by answering the questions on your screen. 

Here's another example: On April 15 you sold 100 shares 
of GTE for $4,250.00. First, make certain that you've written 
or printed out all the pertinent data about this stock. Select 
Display and write down (or make a printed copy) all the infor- 
mation. You will need this for your federal income tax capital 
gains or loss computation. Write it down now — it is about to be 
erased from your computer's record. 

Select Stocks, then Delete, following the instructions to 
delete this item from your portfolio. Note that if you sold only 
a part of your holdings, you would use Change instead of De- 
lete and alter the data to show only your remaining investment. 

Having adjusted the records part of your accounting sys- 
tem, you must now handle the money part. Let's assume that 
you originally paid $2,000.00 for this stock. Using the Transfer 
routine (Chapter 4), move your original investment, $2,000.00, 
from INVestment to SAVing (assuming that the money is be- 
ing put into the SAVings account): 

0324 INV SAV 2000.00 
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You have a capital gain of $4,250.00, less $2,000.00, or 
$2,250.00 which is income. Use the INCOME routine (Chapter 
2), following the prompts, to enter this amount into the 
system: 

0324 5 BROKER SAV 2250.00 

The above example illustrates the fact that the INVEST- 
MENTS routine is principally for record keeping. Changes 
made here don't directly affect any other part of PAM. If other 
parts need attention (as income did above), then you must 
treat those parts as well. 

To reiterate, investments represent a transfer of funds 
from one account to INVestment. When investments are sold, 
there is a transfer in the opposite direction. In addition, any 
gain or loss from the divestiture must be recorded as income. 

Now that you know how it's done, let's look at the 
particulars for each type of security. 



Bonds 

When you return to the INVESTMENTS menu and select 
Bonds, then New, you will be asked to supply the following 
information: 

Company name. Use the company's stock exchange sym- 
bol if you know it (maximum of 16 characters). 

Date purchased. A format of 032185 (March 21, 1985) is 
suggested, but other formats are acceptable. 

Number of bonds. Enter the number of bonds purchased. 
If you already own some of these bonds and have just bought 
additional ones, enter the total number you currently hold. One 
exception to this rule is accrual bonds (like U.S. Government 
Savings Bonds), which are best listed individually to make it 
easier to compute their current value at the end of the year. 

Total cost. This is the total cost of all the bonds you hold 
from this particular company. 

Annual amount of interest/each. The amount of interest 
(dollars and cents) that each bond pays in a year. If a bond 
doesn't pay interest but is bought at a discount instead (such 
as U.S. Government Savings Bonds), then the following holds: 

Maturity value: $25.00 
Cost: $18.75 
Difference ("interest"): $ 6.25 
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The back of the bond will tell you how much interest you 
earn each year. Usually, you get little at first, but more as the 
bond approaches maturity. To keep things simple, I recom- 
mend that you divide this total interest by the number of 
years to maturity to get the average annual interest and use 
that figure instead as the annual interest when you record the 
purchase of this bond. 

Maturity Date. The date that the bonds mature. Use the 
same format for all dates. 

The Bonds routine will now compute the cost of each 
bond, the percentage yield, and the total amount of interest 
paid each year. You can view this information by selecting 
Display, then Individual Bonds (for one bond only) or Income 
Summary for a summary of all your bonds. 

Figure 6-1. Sample Individual Bond Listing 

JOHN & JOAN SMITH 601 
BONDS DATE: 041285 

CO. NAME (SYMBOL) US GOVERNMENT 

DATE PURCHASED 031683 

NO. OF BONDS 1 

TOTAL COST 18.75 

ANNUAL INTEREST/EACH 1.25 

COST EACH BOND 18.75 

•/. YIELD 6.67 

TOTAL ANNUAL INTEREST 1 . 23 

MATURITY DATE 031688 

CURRENT VALUE 18.75 



Stocks 

Having selected Stocks and New, you will be asked the 
following questions: 

Company name. Same as for Bonds (above). 

Date purchased. Same as for Bonds (above). 

Number of shares. Enter the total number of shares you 
own in the company. Use a separate listing for each class of 
stock (common, preferred, and so on). 

Total cost. Total cost (dollars and cents) of all the com- 
pany's stock that you own. 

Annual dividends/share. The amount of money paid in 
dividends each year for each share of stock. 
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The Stocks routine will now compute the cost of each 
share, the percentage yield, and the total amount of dividends 
paid each year. 

You can view this information by selecting Display, then 
Individual Stocks (for one stock only), or by choosing Income 
Summary or Gain/Loss Summary for summaries of all your 
stocks. 

Figure 6-2. Sample Individual Stock Listing 

JOHN & JOAN SMITH 6S1 
STOCKS DATE: 041285 



CO. NAME (SYMBOL) 


GTE 


DATE PURCHASED 


042783 


NO. OF SHARES 


100 


TOTAL COST 


2000.00 


ANNUAL DIV/SHARE 


2.00 


COST PER SHARE 


20.00 


•/. YIELD 


10.00 


TOTAL DIVIDENDS 


200.00 


CURRENT DATE 


041285 


CURRENT PR ICE /SHARE 


20.00 


CURRENT SAIN/LOSS PER SHARE 


0.00 


CURRENT 7. YIELD 


10.00 


TOTAL CURRENT COST 


2000.00 


TOTAL CURRENT GAIN/LOSS 






Other Investments 

Other investments, such as Mutual Funds, should be listed as 
stocks if they pay a regular amount each year, are listed in the 
stock exchange, and have a fluctuating current value. They 
should be listed as bonds if they pay or accrue interest at a 
fixed or predictable rate. 

An investment should be recorded under Other if the se- 
curity is an amount invested to which you can add additional 
amounts periodically (the terms, number of bonds, number of 
items, and so forth, have no meaning). Include long-term sav- 
ings deposits (such as certificates of deposit) here, but not your 
ordinary savings account. 

Having selected Other and New item, you will be asked 
the following questions: 

Company name. Same as for Bonds (above). 
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Date purchased. Same as for Bonds (above). 
Amount invested. Enter the total in standard format. 
Annual amount of interest/each. Calculate or estimate 
this value. 

Maturity date. The year that the investment matures. Use 
the same format with all dates. 

The Other routine will now compute the percentage yield 
and the current value of the investment. You can view this 
information by choosing Display, then Other Investments (for 
this investment only), or Income Summary for a summary of 
all your investments. 

Figure 6-3. Sample Other Investment Listing 

JOHN & JOAN SMITH 701 
OTHER INVESTMENTS DATE: 041285 



CO. NAME (SYMBOL) C/D BANK 

DATE PURCHASED 092484 

AMOUNT INVESTED 10000.00 

ANNUAL INTEREST/EACH 1200.00 

'/. YIELD 12.00 

MATURITY DATE 092787 

CURRENT VALUE 10000.00 



And What's It Worth Today? 

All three investment categories (Bonds, Stocks, and Other) 
allow you to enter the current value of that security and the 
date. A good deal of the fun in owning investments is in figur- 
ing out if your investments are increasing in value, and by 
how much. PAM reports this by reviewing the calculations 
made for each security and providing two summary reports. 
Get out the latest issue of the WaZZ Street Journal (or other 
price quotation) and let's try an example: 

The current price quoted on April 12 for RCA stock is 
$34.50, let's say. The company has just announced a change 
in the dividend from $1.04 to $1.20. The dividend change 
represents a change in the basic information about the stock, 
so we'll do that first. 

Selecting Stocks, then Change, choose the item number 
for the RCA entry. PAM will list the current information about 
the stock, one line at a time. Press the RETURN key if there is 
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no change for that line. When the prompt for aimual dividends/ 
share appears, type in 1.20 and press RETURN. Continue 
pressing RETUEIN until no further prompts appear. You have 
now updated the dividend amount. (In making the above 
change you may have noticed the last two prompts for the 
current date and current cost. We could have entered the cur- 
rent price quotation at that time, but we skipped by to make 
the example simpler.) 

To update the date and price of the stock, choose Stocks, 
then Change, and enter the item number for the RCA entry. 
As before, PAM will list the information about the stock, one 
line at a time. Press the RETURN key if there is no change for 
that line. Type in the current date when asked and press RE- 
TURN. Now type in the current price per share and press RE- 
TURN again. The routine will now compute the current gain 
or loss per share, the current percentage yield, the total cost if 
you were to buy the stock at the current price, and the total 
gain or loss based on the current price. The information about 
the RCA stock is now up-to-date (see Figure 6-4). 

Figure 6-4. Updated Individual Stock Listing 

JOHN %t JOAN SMITH 6S2 
STOCKS DATE: 041285 

CO. NAME (SYMBOL) RCA 

DATE PURCHASED 061781 

NO. OF SHARES 100 

TOTAL COST 2754.93 

ANNUAL DIV/8HARE 1.20 

COST PER SHARE 27.55 

% YIELD 4.36 

TOTAL DIVIDENDS 120.00 

CURRENT DATE 041285 

CURRENT PRICE/SHARE 34.30 

CURRENT GAIN/LOSS PER SHARE 6.95 

CURRENT y. YIELD 3.48 

TOTAL CURRENT COST 3450.00 

TOTAL CURRENT GAIN/LOSS 695.07 



Similarly, you should adjust the current value of your 
bonds. The current value of any investment at first is the same 
as the Total Cost. For a bond where interest isn't paid, but is 
retained and paid only when the bond is sold (or at maturity). 
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the current value of that bond increases each year. At the end 
of each year, then, you should use the Change option of the 
INVESTMENT routine to add the total annual interest to the 
rn current value. In this case, you can use the actual interest rate 
on the back of the bond. 

For a full evaluation of your portfolio, select the 
Gain/Loss Summary (for stocks only) and the Income Sum- 
mary reports described below. 



Reports 

Returning to the INVESTMENTS menu, you can see your in- 
dividual securities on the screen by selecting Display. You are 
then given the following choice: 

DISPLAY 

1. INDIVIDUAL BONDS 

2. INDIVIDUAL STOCKS 

3. OTHER INVESTMENTS 

4. INCOME SUMMARY 

5. GAIN/LOSS SUMMARY 

6. RETURN TO MENU 

Selecting items 1 through 3 will allow you to see all data 
about a specific bond, stock, or other security you own. See 
Figures 6-1 through 6-3. 

Choosing item 4, Income Summary, will provide you with 
a report of your securities, the cost, dividend, and yield for 
each, as well as the cost, dividend, and yield for each type of 
investment (bond, stock, or other), and finally the total cost, 
dividend, and yield for all investments combined. This report 
is intended to show which investments are producing the best 
income and the total income from all your investments. If in- 
come is your concern, then this report furnishes you with the 
information you need to adjust your investment portfolio 
accordingly. For an example, see Figure 6-5. 

Item 5, Gain/Loss Summary, produces a report of all 
stocks, their costs, current costs if purchased today, the result- 
ing gain or loss for each, and the total gain or loss for all 
stocks. This report is intended to help you make buying and 
selling decisions involving your stocks. See Figure 6-6 for a 
sample. 



n 
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Figure 6-5. Sample Income Summary 



JOHN St JOAN SMITH 
INVESTMENTS 



COMPANY 



DATE: 



INVESTMENTS INCOME SUMMARY 



QTY 



COST 



DIV 



140 
04128S 



XYIELD 



BONDS: 

US GOVERNMENT 



18.75 



1.25 



6.67 



STOCKS: 

BTE 
RCA 



100 
100 



20.00 
27.55 



2.00 
1.20 



10.00 
4.36 



OTHER INVESTMENTS: 
C/D BANK 



10000.00 



1200.00 



12.00 



SUMMARY: 



TOTAL BONDS 
TOTAL STOCKS 
TOTAL OTHER 

TOTAL INVESTMENTS 



18.75 
4754.93 
10000.00 

14773.68 



1.25 
320.00 
1200.00 

1521.25 



6.67 
6.73 
12. OO 

10.30 



Figure 6-6. Sample Gain/Loss Summary 



JOHN & JOAN SMITH 
STOCKS 



DATE: 



GAIN/LOSS SUMMARY (STOCKS) 



SH 



COMPANY 



COST 



PRICE 



30 

041285 



G/L 



100 
100 



GTE 
RCA 



2000.00 
2754.93 



2000.00 
3450.00 





695.07 



TOTAL ♦ 



4754.93 



5450.00 



695.07 
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Put printouts of all your investment data in your note- 
book. This is for ease and speed in retrieving information, and 
it acts as a safeguard against data loss. 

The date of all reports is the date associated with the first 
stock listed. Before calling one of the reports, always update 
the current date of the first stock (using the Change function), 
regardless of whether you are also making any other change. 

Obtain price quotations for the last business day of the 
year and enter this data for all investments. Be sure to include 
new dividend rates where changed. 



And Next Year... 

On January 1, transfer this file to the new disk. After selecting 
INVESTMENTS from the Main Menu, remove the current data 
disk and insert the new year's disk. Select item 2, Stocks, then 
item 2, Change, and enter the current date for the first stock 
listed to January 1 of the new year. Press the RETURN key as 
many times as there are lines of data. PAM will automatically 
save this file on the new disk. 
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Property 



With this routine you can create lists of your belongings. 
A separate list is created for real estate, appliances, auto- 
mobiles, and personal items. For household goods, a separate 
list is created for each room in your house. 

The reasons for creating such lists are to arrive at your 
true net worth as required by the Balance Sheet (Chapter 9), 
and to assist in the recovery of your property or in filing a 
claim in the event of loss by theft or fire. For these reasons, 
you should keep a printout of these lists in your safe deposit 
box or other safe place. 

Before you run this routine, have ready the following infor- 
mation about each item of property that you are going to list: 

• Location of the property 

• Descriptive name 

• Model number 

• Serial number 

• Original cost 

• Date the item was purchased 

We'll go into specifics about each of these a little later, but 
first there are some general rules about the first four that you 
should know. 



Location of the Property on the Room Locator Chart 

Except for real estate, whenever you want to add, correct, de- 
lete, or display an item of property, you will be asked, first of 
all, for the room number where the property is located. Obtain 
that room number from the following chart: 

ROOM LOCATOR CHART 

1. LIVING ROOM 

2. DINING ROOM 

3. KITCHEN 

4. BATHROOM 

5. MASTER BEDROOM 

6. BEDROOM NO. 2 

7. BEDROOM NO. 3 

8. ATTIC 

9. CELLAR/GARAGE/SHED 
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PAM automatically assigns an identification number to 
each item of property. That number is composed of three 
parts — a digit from 1 to 9 representing the location of the item 
(the room number), a hyphen (-), and a number from 1 to 
999. You supply the first part (the room number) and PAM 
adds the hyphen and the next available sequential number. 

The sequential numbers for Appliances, Automobiles, and 
Personal Items run from 1 to 99. If the humidifier (appliance), 
for example, located in the living room (1), is the first item on 
the Appliances list, its identification number will be 1-1. 
HOUSEHOLD GOODS, on the other hand, are numbered 
from 101 to 999, the first digit of the sequential number being 
a repeat of the room number. 

Be aware that item numbers might not be unique. The 
stereo, also located in the living room, as the first item on the 
Personal Items list, will also have an item number of 1-1. Even 
though not unique, the numbers are still useful. Use them as 
property identifying numbers if you don't have a better 
system. 



Description of the Property 

When asked for a description of an item, first list its proper or 
common name (desk, chain saw, pendant, brooch, and so on). 
This description will appear in the Sununary Listing. You are 
allowed up to 17 characters. 

When you RETURN, you will be given two additional 
lines in which to add to the description of the item. These 
lines are labeled Model No. and Serial No., respectively, but 
these prompts needn't be strictly adhered to. Each line gives 
you room for an additional 17 characters (for a total of 51 
characters in all). Use all three lines to enter the item descrip- 
tion and any identif3dng marks that will positively identify 
that item as much as possible. Extra characters are dropped 
(they aren't carried over onto the next line), so describe and 
count the characters in each line carefully. If you leave some- 
thing out or come up v^th a better way to describe the item, 
then go back later with the Corrections function and change it. 

This routine will hold 1300 items, including 100 in each 
of the following categories: real estate, appliances, auto- 
mobiles, and personal. In addition, it holds 900 household 
goods (100 items in each room of a nine-room house). Gen- 
erally, though, you should list only durable items or items of 
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appreciable value. If you run out of room, see the section 
"When the File Is Full" below. 



Getting Started 

After choosing item G, PROPERTY, from the Main Menu, you 
will be given the following choices: 

PROPERTY 

1. REAL ESTATE 

2. HOUSEHOLD GOODS 

3. APPLIANCES 

4. AUTOMOBILES 

5. PERSONAL ITEMS 

6. VALUE ALL PROPERTY 

7. MAIN MENU 

Selecting items 1 through 5 will enable you to prepare a 
list of your property for each category; to add, correct, or de- 
lete items on that list; or to see the list displayed. Option 6 
will display the total value of your property in each category 
and the total value of all your property. When you're finished 
with this routine, select item 7 to return to the Main Menu. 



Specifics 

First, determine the category of property that you want to 
work with and select that category from the PROPERTY 
Menu. You can now perform the following operations: 

ENTER/CHANGE DATA 

1. ADD NEW ITEM 

2. CORRECTIONS 

3. DELETE 

4. DISPLAY 

5. RETURN TO MENU 

Use Add New Item to start a new list or add to an exist- 
ing one. There's more than one way to add items; see the de- 
tails below. The Corrections option works as explained in 
INCOME, EXPENSE, and other routines in this program. Item 
3, Delete, however, is a little different from the way we have 
been using it. 

Delete will erase from the list everything about an item 
except the item number. What it does is change the descrip- 
tion of the item to 

—EMPTY— 
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This is so that you can use the item number again for a new 
item while keeping the routine as simple as possible. To add a 
new item, then, you should choose one of the following 
methods: 

• Use the Summary Listing to look for an EMPTY item. Make 
a note of the item number, then use Corrections to enter 
your new item just as if you were using the Add function. 

• If there is an item on the list that shouldn't be there (for in- 
stance, you don't own it anymore or you've moved the item 
to another list), theri instead of deleting it, use the Correc- 
tions function to replace that item with the new one. 

• If there are no "empty" item numbers, then use Add New 
Item and type it in. 

As you can see, the routine is flexible. Use it to keep your lists 
clean. With this in nund, let's go through each category 
individually. 



Real Estate 

For each piece of property, you will be asked to supply the 
following information: 

Date Bought. Six digits are required. Use the format 
051367 for May 13, 1967. 

Descriptive Name. Enter a short description of the prop- 
erty. For example, 

DESCRIPTIVE NAME: HOUSE/LAND 
MODEL NO.: 123 MAIN STREET 

SERIAL NO.: ANYVILLE ST 99999 

Only one line will appear at one time. Ignore the model and 
serial number prompts. There is a maximum of 17 characters 
per line, and any line can be left blank by simply pressing 
RETURN. 

Cost. Enter the amount paid if recently purchased; other- 
wise, enter the current valuation. You should be able to figure 
the current valuation from your property tax bill or you can 
get it from your local tax assessor. Use the usual X.XX format. 

You wUl then be asked ANOTHER ITEM? (Y/N). If you 
have additional items to record, type Y. If you type N, your 
data will be saved and the Display menu will appear (see Re- 
ports for a description of displays available). Don't forget to 
check for errors. 
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Because Household Goods is different from the other 
property categories, let's skip it for now ar\d go on to the next. 



Appliances 

If it has a serial number, list it here. When you choose Appli- 
ances, then Add New Item from the Enter/Change Data 
Menu, you will be asked the following questions: 

Room No. Using the Room Locator Chart, type in the 
room number where the property is located. To see the chart 
on the screen, type 0. 

Date Bought. Six digits are required. Use the format 
051367 for May 13 1967. 

Descriptive Name. Enter a short description of the item. 
For example, 

DESCRIPTIVE NAME: HUMIDIFIER 
MODEL NO.: 768.1260 
SERIAL NO.: 71256C 

Model No. Enter the model number of the appliance (lim- 
ited to 17 characters). The prompt. Model No., isn't included in 
the 17 characters on this line. Excess characters are dropped. 

Serial No. It is very important that you record the serial 
number. Read it carefully. Again, you are limited to 17 
characters. 

Cost. Enter the amount paid for this item using the usual 
X.XX format. 

You will then be asked ANOTHER item? (Y/N). The rules 
are the same as above. 



Automobiles 

Selecting Automobiles enables you to record pertinent data 
about your vehicles. You will be asked the same questions as 
above. Automobiles are assumed to be located in the garage 
(Room No. 9). List all your vehicles here (motorcycles, lawn 
tractors, trailers, bicycles, boats, and airplanes, too). 



Personal Items 

Selecting Personal Items enables you to record your other 
belongings, such as clothing, jewelry, sports equipment, and 
other items of a personal nature. You will be asked the same 
questions as above, but use the model and serial number lines 



79 



CHAPTER 
SEVEN 



to record additional descriptive information. Try to include 
identifying marks whenever possible. For example, 

DESCRIPTIVE NAME: EARRINGS DIAMOND 

MODEL NO.: 1 KT OVAL 

SERLAL NO.: GOLD SCREW TYPE 



Household Goods 

When using Household Goods, you will be asked the 
following: 

DISPLAY VALUE ALL HOUSEHOLD GOODS? (Y/N) 

If you would like to see the value of household goods in each 
room of the house, and the total value of all your household 
goods, type Y. A display will appear on your screen (see Fig- 
ure 7-3). Note that if you haven't created a list for every room 
in your house, the red light on your disk drive may start to 
blink. It's only trying to tell you that it didn't find a list for 
one or more rooms. You know that already, so just ignore it. 

If you want to add a new item or make a correction, an- 
swer N. In this case, you will be asked for the room number. 

Household Goods is a little different. Unlike the other 
categories where you are asked the room number each time 
and for each item, with Household Goods you can work with 
only one room at a time. The property in each room is kept in a 
separate file which isn't brought into the computer until 
needed. Consequently, the routine asks you for the room that 
you're interested in and then loads that file. Having done this, 
it knows what the room number is and doesn't need to ask 
again. 

Type in a number from 1 to 9 based on the Room Locator 
Chart. The same Enter/Change Data menu that you've been 
using with the other property categories will appear. Select 
Add, Correct, Delete, or Display as desired. 

If you select Add New Item, the routine will automatically 
assign an item identification number. In this case, the first 
digit of the sequential number is the same as the room num- 
ber. For example, item 2-234 is the thirty-fourth item on the 
Household Goods list for the dining room (Room No. 2 on the 
chart). Since this number is a permanent part of the record, 
you may mark the item with that number as an aid in identi- 
fying and finding it on this list. 
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You will next be asked the same questions described un- 
der Appliances. 



Moving an Item Around 

Because Household Goods treats each room as a separate 
property category, household property can't easily be moved 
from room to room. To do so, you must first delete the item 
from one room file, then add it to the new room file. Here's 
how: After entering the room number, delete the item using 
the Delete function; return to the PROPERTY Menu and 
choose Household Goods; enter the new room number; add 
the item using one of the three methods previously described. 

Appliances, automobiles, and personal items can be 
moved directly. Just use Corrections and change the first digit 
of the item number. 



Depreciation 

Real estate isn't depreciable. In fact, the opposite is often true. 
Consequently, whenever your property is revalued you should 
revise its recorded value using the Corrections function. 

On the other hand, household goods, appliances, auto- 
mobiles, and personal items do lose their value as the years go 
by — some items, such as automobiles, lose their dollar value 
quickly. In order for your Balance Sheet to reflect your net 
worth correctly, the value of these items (recorded at cost) 
must be reduced to reflect this lost value. This is what depreci- 
ation is all about. 

There are a number of systems that you can use to depre- 
date your property. Let's look at the system that's probably 
been used the longest and is also the simplest — the straight- 
line method. This method states that an item loses in value 
the same amount for each year of its life. For example, if a 
bookcase costs $110.00 new, and the value at the end of its 
useful life (the junk value) is $10.00, the depredation (the loss 
in dollar value) is $100.00. 

Assuming a useful life of five years, the annual depreci- 
ation is $20.00 per year ($100.00 divided by 5). Using this sys- 
tem, you would reduce the recorded value of this item by 
$20.00 each year until its recorded value equaled its junk 
value of $10.00. There it would stay until you either sold it or 
threw it out. 
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Since depreciation must be applied to each item on your 
lists (except real estate), this ends up being a lot of work. 
Some people prefer a less time-consuming system; after all, 
keeping track of your income and expenses is a hobby and a 
necessity, but you probably don't want to spend every waking 
hour at it. There is, however, an easier way to handle 
depreciation. 

Take a look around the room you're in right now. 
Chances are that you will see some items that are new and 
others that are old enough to throw out but not rare enough 
to be antiques. It seems fair enough to say that the average 
age of the objects in the room is at the midlife of usefulness. 
This is particularly true of automobiles. You've probably heard 
the saying that as soon as you drive your new car off the deal- 
er's lot, you've just lost a thousand dollars. Often, a car two 
years old is worth about half what you paid for it (its trade-in 
value). 

This system of depreciation assumes that all items as a 
group are half-depreciated and that the current value bf all 
items in the room, and in every room in the house, is one half 
of what you paid and therefore one half of its recorded value. 
It isn't the most scientific of methods, but it works fairly well. 

Depreciation is discussed here, but it isn't applied to the 
value of your property by this routine. The BALANCE SHEET 
routine (Chapter 9) vdll deduct one half the value of your 
property (other than real estate) as depreciation. This will be 
done automatically — you don't need to be concerned with 
depreciation at all. Having learned a little about depreciation, 
then, you can go ahead and forget it. PAM will take care of it 
for you. 



When the File Is Full 

If you have more possessions than PAM allows, delete those 
of lesser value and replace them with more valuable items or 
add the extra items in another category — wherever space is 
available. 

In rooms contaiiiing many items, list only those items that 
are durable, identifiable, or of appreciable value. If the number 
of items still exceeds the limit, put them in a catch-all room (a 
room that doesn't contain many valuable items such as the 
bathroom, the spare room, or the attic (especially if your 
house doesn't have an attic). 
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Reports 

After you've selected the category of property that you are in- 
terested in, choose Display and you'll be given a choice of four 
types of reports available through this routine: 

DISPLAY 

1. INDIVIDUAL ITEM 

2. SUMMARY LISTING 

3. VALUE HOUSE/GOODS 

4. VALUE ALL PROPERTY 

It may seem odd, but to see an individual item, you v^rill 
probably first need to select Summary Listing to look at the 
item numbers. Once you know the item number, return to the 
menu and select Individual Item. You will be asked to type in 
the item number or ALL. If you want to see only one item, 
type its number exactly. All the data that you've entered about 
that item will be displayed. If you t5^ed ALL, each item will 
be fully displayed, one after the other, until you've seen the 
full list (see Figure 7-1). 

Figure 7-1. Sample Individual Property Report 

JOHN t, JOAN SMITH 2100 
LIVIN6 ROOM 



Again, selecting 2, Summary Listing, will display the item 
number, date purchased, description, and value for each item 
on a list (see Figure 7-2). 



PROPERTY 



ITEM NO.! 
BOUGHT: 
DESCRIPTION: 
MODEL NO. s 
SERIAL NO. t 
COST: 



I-lOl 
041585 

CHAIR-STUFFED 

WINB 



150. 00 
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Figure 7-2. Sample Summary Listing of Property 

JOHN 8< JOAN SMITH 2100 
LIVING ROOM 

PROPERTY SUMMARY LISTING 



ITEM# BOUGHT DESCRIPTION VALUE 



1-10 I 041585 CHAIR-STUFFED 150.00 



TOTAL LIVING ROOM « 150.00 



Choosing Value House/Goods, you can see the total value 
of the goods in each room, then the total for all rooms (all 
household goods). Figure 7-3 is an example printout. 

Figure 7-3. Sampie Vaiue of ail Househioid Goods Report 

JOHN & JOAN SMITH 24 
PROPERTY 

VALUE OF HOUSEHOLD GOODS BY ROOM 



LIVING ROOM 




150.00 


DINING ROOM 




0.00 


KITCHEN 




109.00 


BATHROOM (S> 




0.00 


MASTER BEDROOM 




2180.00 


BEDROOM NO. 2 




0.00 


BEDROOM NO. 3 




0,00 


ATTIC 




0.00 


CELLAR/GARAGE/SHED 




495. 95 


TOTAL HOUSEHOLD GOODS 


« 


2934.95 



Item 4, Value All Property, provides a report of the total 
worth of all your property (figure 7-4). 
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Figure 7-4. Sample Value of All Property Report 



JOHN & JOAN SMITH 
PROPERTY 



2S 



VALUE ALL PROPERTY 



REAL ESTATE 
HOUSEHOLD GOODS 



PERSONAL ITEMS 



APPLIANCES 
AUTOMOBILES 



49500.00 
2934.93 

619.95 
9608.00 

249.95 



TOTAL PROPERTY 



« 



62912.85 



And Next Year... 

This routine establishes 14 different files so that transferring 
your property lists over to the next year's disk (which you 
must do) requires some work. Remember that there are five 
categories and that Household Goods maintains a file for each 
room in your house. Here's how to transfer this data onto next 
year's disk, using Real Estate as an example. Select Real Estate 
from the PROPERTY menu. When the disk drive stops, re- 
move the data disk from the drive and insert next year's 
Preformatted disk. Use item 2, Corrections, to select any item, 
and make a no-change correction by pressing RETURN for ev- 
ery line. The disk drive will create this file on the new disk. 

Insert last year's data disk and repeat the above process 
for Appliances, Automobiles, and Personal Items. For House- 
hold Goods, answer N to the display prompt, then type in 
Room No. 1. Use the no-change correction procedure de- 
scribed above to copy the files to the new year's disk, then re- 
peat the procedure for each room. 
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Un 



paid Bills 



We all need to know how much money we owe and to 
whom. Listing the names of the people you frequently 
buy from on credit (as in Chapter 1) doesn't mean that you ac- 
tually owe them money right now. Knowing whom you owe 
is important. Knowing how much you owe is often a surprise. 
The shock is usually incentive enough for you to try to get out 
of debt — and that's generally a good idea. 

UNPAID BILLS prepares a list of up to 100 of your un- 
paid accounts. You should include only those bills that will 
not be fully paid this month. This routine will then calculate 
the sum of your debts and display this list and the total on the 
screen. 

Unlike other routines in the system, UNPAID BILLS will 
not automatically adjust amounts owed as you make pay- 
ments. Because of differences in interest rates, late charges, 
and other complications, including this feature wovild enor- 
mously and unnecessarily slow down the program. Since you 
shouldn't have a long list of creditors anyway, it is much 
simpler for you to correct this list or prepare a new one when- 
ever you need it. 



Getting Started 

Selecting UNPAID BILLS from the Main Menu will give you 
the following options: 

UNPAID BILLS 

1. VIEW LIST 

2. ADD 

3. CORRECT 

4. DELETE 

5. MAIN MENU 

View List will display a list of your creditors on the 
screen, and the amounts you owe each one. This is for the 
current file. As with the other routines in this program, items 
2 through 4 enable you to modify the list. 

Also, Add will record the date on which the list was last 
prepared or updated. To change the date you must add a new 
item. If you have no new bill to add, then add an artificial one 
and the current date. Then, select Delete and remove it. The 
new date will remain. 
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When you're finished with this routine, choosing 5 will 
return you to the Main Menu. 



Specifics 

Item 2, Add, asks for the current date, and you may use any 
format that you wish. Next, enter the name of the creditor and 
the amount you owe. Use your standard list of creditors as a 
guide so that you won't miss any bills. Don't include any bills 
that will be paid in full this month. 

When you've finished entering your bills, the routine will 
compute the total. If the amount is larger than you expected, 
you should review your budget and your overall financial con- 
dition to see if something can be done to reduce your in- 
debtedness, since credit costs. 



Reports 

You can see your list displayed on the screen by selecting 
View List (see Figure 8-1). 

Figure 8-1. Sample List of Unpold Bills 

JOHN & JOAN SMITH 40 
20 FEBRUARY 198S 

UNPAID BILLS 



NAME OF CREDITOR AMOUNT 



FILENE 654.78 
FIRST NATIONAL BANK 342.75 
SMITH'S FURNITURE STORE 2312.89 



TOTAL OWED » 3310.42 



The sum of your unpaid bills will also appear in the Bal- 
ance Sheet report (Chapter 9), so be sure to update this list 
before you run the BALANCE SHEET routine. 



And Next Year... 

After preparing an updated list as of December 31, insert the 
new year's disk and, using Add, enter a nonexistent bill and 
the date. Next, use Delete to erase the fake bill. The result will 
be to save a copy of the list on the new disk. 
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ce Sheet 



BALANCE SHEET is one of the two routines that brings your 
^accounting system together. The other is STMNT OF I&E 
(Chapter 10). The Balance Sheet is a complete report of your 
financial condition at any given time. It shows your assets, 
where they are, how much you owe, and your net worth. Con- 
sequently, it is the financial report. On the other hand, the 
Statement of Income and Expense, described in the next chap- 
ter, reports how much money has come in and how much has 
gone out. Together, they are the essence of the accounting 
system. 

You can obtain a Balance Sheet at any time, but at the 
minimum you should get one at the end of each year. When- 
ever you get a Statement of Income and Expense for the Year 
or Year to Date, you should also get a Balance Sheet. 

In order for your Balance Sheet to be accurate, however, 
you must first run the following routines: 

Routine Option 

ACCOUNT BALANCES Current Balances 
UNPAID BILLS Unpaid Bills 

The results of these routines, among others, are used in 
preparing your Balance Sheet. 



Getting Started 

When you choose BALANCE SHEET from the Main Menu, 
you will be given the following options: 

BALANCE SHEET 

1. BALANCE SHEET 

2. MAIN MENU 



Specifics 

BALANCE SHEET will ask you to type in the date. You can 
use any format you like. The routine will then automatically 
prepare your Balance Sheet and display it on the screen. 

First, the routine uses the Current Balances file from AC- 
COUNT BALANCES. These balances represent your current 
assets. Next the PROPERTY routine (Chapter 7) displays the 
value of the various classes of property as your fixed assets. 



CHAPTER 
NINE 



Before arriving at your total assets, however, your fixed assets 
must be adjusted for depreciation. 

Your net worth will be overstated if the value of your 
depredable property isn't reduced to bring its recorded value 
more in line with its actual value (see Chapter 7). Depreciation 
is the amount PAM subtracts from the price you originally 
paid for your property in order to arrive at what it's worth to- 
day. PAM takes half the original cost of your property (real 
estate excluded) and displays it as depreciation. The value of 
your total assets can now be calculated and displayed. 

BALANCE SHEET next considers your debts, which are 
obtained from the Unpaid Bills file. The total is listed under 
Liabilities. The routine subtracts your liabilities from your total 
assets to arrive at your net worth. Net worth represents your 
total wealth. If the figure is so large that it exceeds the capac- 
ity of this program, you are probably in good shape. 

Neither the redemption nor the cash value of your life 
insurance policies is included. The cash value of your term 
insurance isn't included in the system, either. If you like, you 
can add the current value of these into the income account 
called Other for which you established a DIS code in Chapter 
1. The total value of your life insurance policies will then be 
displayed under that name as part of your current assets. 

Otherwise, insurance is treated in this system strictly as 
an expense. If you have a loss (such as a repair bill to fix a 
dented fender), record it as an expense. If you receive 
reimbursement from your automobile, homeowners or other 
insurance, enter the amount using the ADJUSTMENTS routine 
of Chapter 4. 



Reports 

At the end of the year, obtain a BALANCE SHEET for your 
portfolio of financial records for the year. Figure 9-1 is a 
sample of this report. 
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Figure 9-1. Sample Balance Sheet 

JOHN ti JOAN SMITH 

AS OF 31 DECEMBER 198S 

BALANCE SHEET 



CHAPTER 
NINE 



10 



CURRENT ASSETS I 

BUSINESS 
CASH ACCOUNT 
CHECKING 
CHRISTMAS CLUB 
INVESTMENTS 
OTHER 

RETIREMENT PLAN 
SAVINGS ACCOUNT 

TOTAL CURRENT ASSETS 

FIXED ASSETS I 

REAL ESTATE 
HOUSEHOLD GOODS 
APPLIANCES 
AUTOMOBILES 
PERSONAL ITEMS 
DEPRECIATION 

TOTAL FIXED ASSETS 

TOTAL ASSETS 



23678.82 
-3462.01 
B900. 86 
40.00 
67999.50 
0.00 
37473.23 
6329.74 



140960. 14 



49S00. 00 
2934.93 
619.95 
9608.00 
249.95 
-6706.43 



56206.42 



197166.56 



LIABILITIES AND NET MORTHt 
UNPAID BILLS 
NET WORTH 

TOTAL LIABILITIES AND NET MORTH 



3310.42 
193856. 14 



197166.56 



The Balance Sheet is the bottom line of an accounting 
program. If you don't have a printer, it is worth copying down 
the information to keep for your permanent records. 
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statement of 
Income and 
Expense 

ou would probably like to know if your household is runr\ing 
at a profit or a loss, or if you spent more last month than 
you took in. Statement of Income and Expense is the second 
of the two routines that define your financial condition (Bal- 
ance Sheet is the first). The BALANCE SHEET computes what 
you own, what you owe, and what you're worth. The STMNT 
OF I&E routine wUl tell you how good you are at running 
your financial affairs. 

The Statement of Income and Expense report is your 
profit and loss record. PAM doesn't call it that because in- 
dividuals don't consider themselves having profits or losses in 
the usual sense. Instead, think of them as income, expenses, 
surpluses (you took in more money than you spent), and defi- 
cits (the other way around). These terms should be familiar, 
since the United States is grappling with budget problems of 
its own. As you can see, this chapter is important. 

The Statement of Income and Expense report is a record 
of what has already happened to your money. But it is more 
than that. It also helps you know what is happening now, 
which may help you predict what is to come. For instance, if 
you find in February that you've already spent your fuel oil 
allotment for the year, then you've either had a very bad win- 
ter or your furnace is in dire need of repair. The Statement of 
Income and Expense thus alerts you to items that need atten- 
tion in the months ahead, and you'll have time to do some- 
thing about them. 



Getting Started 

When you select STMNT OF I&E from the Main Menu, you 
will be given the following options: 

STATEMENT OF INCOME AND EXPENSE 

1. MONTH 

2. YEAR TO DATE 

3. MAIN MENU 
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When you choose Month, PAM will prepare a report 
showing all items of income and expense, and the totals for 
each of them for the month. In addition, this report will dis- 
play the difference between income and expense under the 
heading of surplus/deficit. 

Year to Date provides you with a similar report, but with 
income and expenses totaled to date. In addition, the Year to 
Date report takes into account any adjustments you may have 
made to your accounting system. The importance of this is ex- 
plained in "Interpreting the Surplus/Deficit" below. 

When you're finished with this routine, select item 3 to 
return to the Main Menu. 



Specifics 

Select Month and specify the month desired, and PAM will 
prepare a report showing all items of income, the total income 
for the month, all items of expense, and the total expense for 
the month. Because like items are combined, this report con- 
stitutes a summary of similar, but separate, reports prepared 
by the INCOME and EXPENSE routines. In addition, the re- 
port displays your surplus or deficit for the month. 

If you select Year to Date, PAM will display the following 
warning on the screen: 

THIS REPORT WILL NOT BE ACCURATE UNLESS 
THE FOLLOWING ARE UP TO DATE: 

ROUTINE OPTION 

INCOME YEAR TO DATE 
EXPENSE YEAR TO DATE 

ARE THESE FILES UP TO DATE? (Y/N) 

A report based on incorrect information can be disastrously 
misleading. Pressing N will return you to the Main Menu 
where you can proceed to the INCOME and/or EXPENSE 
routines and bring these files up to date. 

When you press Y, you will be asked to type in today's 
date. You can use any format that you like. PAM will prepare 
a report showing all items of income, the total income for the 
year to date, all items of expense, and the total expense for the 
year to date. Like items of income and expenditure have been 
combined and summed. In addition, adjustments to income 
are taken into account in computing the surplus/deficit. 
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Interpreting the Surplus/Deficit 

You can do at least two things that will affect the surplus/ 
deficit figure provided by this routine. Surprisingly, both in- 
volve income: adding or removing funds from the system 
through adjustments, or investing your income. The effect is 
most severe in the Statement of Income and Expense report 
for a month. 

As you know by now, ADJUSTMENTS (Chapter 4) is 
used to put money into or to take money out of the system. If 
you put money into the system using ADJUSTMENTS and 
then spend it, STATEMENT OF I&E will not show this money 
on the income side of the report (since it wasn't recorded as 
income), but will recognize ttie expenditure and reduce the 
surplus accordingly. If, on the other hand, you take money out 
of the system that was originally recorded as income, the 
STATEMENT OF I&E routine will still show that amount as 
part of the surplus. For example, if you put pennies from the 
penny jar into the CHEcking account and then spend them, 
the pennies aren't recorded as income but as an adjustment to 
the accounting system (see Chapter 4). However, the expen- 
diture is recorded as an expense. 

In this example, the Statement of Income and Expense for 
the month wouldn't include the pennies on the income side of 
the report, but would add them on the expense side. The in- 
dicated surplus is thus less than it should be. 

The second way that an indicated surplus or deficit can be 
incorrect involves investments. This is because at least some of 
the money invested came in this year as income. The invest- 
ment, however, is treated as a transfer and not as an expense, 
so the Statement of Income and Expense doesn't show that 
any money has been spent. For example, if you take $50.00 
from your paycheck and buy two shares of stock, your pay- 
check will be fully recorded and will show up as income in 
the Statement of Income and Expense. The purchase of stock 
is an investment and would be recorded using the TRANSFER 
routine of Chapter 4 — not as an expense or expenditure. The 
resulting Statement of Income and Expense will show a sur- 
plus of $50.00 even though that money is no longer in hand. 

An indicated surplus then might not represent cash left 
over or available to be spent. When interpreting the 
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surplus/deficit figure given you by the Statement of Income 
and Expense report for a MONTH, you should take into ac- 
count any adjustments you may have made during the month 
as well as any investments. 

Unlike the monthly report, the YEAR TO DATE report 
does take into account adjustments made to your accounting 
system. Investments remain a problem, however. What PAM 
doesn't know is how much of the money that you invested 
this year came from income and how much came from your 
Jan 1 Balances. Consequently, even in the Year to Date report, 
you must remember to allow for the effect of investments in 
calculating your true surplus or deficit. 

As in the example, investments result in an indicated sur- 
plus being larger than the actual value. Subtract income in- 
vested this year from the indicated surplus (or add it to a 
deficit) to arrive at the correct value. 



Expense Control 

Use the Statement of Income and Expense reports in conjunc- 
tion with Planned Income Versus Actual (Chapter 11) and 
Planned Expenditures Versus Actual (Chapter 12) reports to 
assert your control over your expenditures. These reports 
allow for direct comparisons between what you budgeted and 
what you actually spent. If your expenditures exceed your 
budget, it's possible that some cost cutting is in order. 

A key to the effectiveness of any cost-cutting action is the 
worth of the various expenditures. For example, taking a 
shortcut to work might save you gasoline money, but it might 
also save you wear and tear on your car, depending on the 
condition of the road. You may not need to make repairs or 
buy new tires as often. Consequently, a small savings in gaso- 
line expense coincides with a much larger savings overall. 

On the other hand, lowering the thermostat in your home 
too severely may reduce heating costs, but if you become 
more susceptible to sickness as a result, your cost-cutting effort 
will be fruitless. As long as you know the relative worth of 
your expenditures, you can profit by making even small reduc- 
tions in expenses. Keep an open eye for sales and discounts 
and an open mind about whether the expenditure is a nec- 
essary one. 
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f*~j It is better to do a regular analysis of your expenditures 

once a month than to wait several months and then do a de- 
tailed study. You can always refine your cost-cutting action as 

P~l you go along — spending more or less as your analysis indicates. 

Be presistent. Sometimes results may be slower to appear 
than you might like. Keep in mind that for many, only persis- 

n tent analysis of records and constant action can keep expenses 
from exceeding income. 



Reports 

This routine will provide you with a Statement of Income and 
Expense for a month, which shows your income, expenses, 
and the resulting surplus/deficit. Prepare a Statement of In- 
come and Expense for each month and place it in your perma- 
nent financial record file (see Figure 10-1). 

Also available is a Statement of Income and Expense re- 
port for Year to Date, which provides you with cumulative 
income/expense information. This report, when prepared at 
the end of the year, shows net surplus/deficit for the year. An 
added feature of this report is that adjustments to income are 
taken into account so that the indicated surplus/deficit is more 
correct although it still doesn't take into account income re- 
directed to investment. Always prepare a Statement of Income 
and Expense at the end of the year for your permanent finan- 
cial records (see Figure 10-2). 
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Figure 10-1. Sample Monthly Statement of Income and 
Expense 

JOHN tc JOAN SMITH 213 
JANUARY 198S 

STATEMENT OF INCOME AND EXPENSE 



FROM/TO WHOM ACT* AMOUNT 



INCOMEl 



GTE 

JONES MF6 
RCA 

SAVINGS BANK 



• 75.00 

• SOO. 00 

• SO. 00 

• 17.39 



TOTAL INCOME « 642.39 

EXPENDITURES! 



ALLOMANCE-MINE 


6 


• 


80.00 


VISA BANK 


100 


« 


50.00 


LAUNDRY 


14 


• 


12.89 


UNION DUES 


62 


• 


2.00 


LIFE INSURANCE 


30 


« 


5.00 


MEDICAL IN8URAN 


69 


• 


20.00 


TAXES-FICA 


3 


» 


35.00 


TAXES-STATE 


66 


* 


25.00 


TAXES-FEDERAL I 


2 


• 


100.00 


CLOTHES 


87 


« 


123.45 


MAGAZINES/BOOKS 


15 


» 


21.95 


FILENE 


108 


9 


78.99 


POSTAGE 


19 


• 


2.00 


ENTERTAINMENT 


89 


• 


20.00 



TOTAL EXPENSE 


• 


576.28 


SURPLUS ( * ) /DEF I C I T ( - ) 


• 


66. 11 
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Figure 10-2. Sample Yearly Statement of Income and 
Expense 



JOHN it JOAN SMITH 






160 


AS OF 31 DECEMBER 19B5 








STATEMENT OF 


INCOME AND EXPENSE 






FROM/TO WHOM 


ACTtt 




AMOUNT 


INCOMEl 








GTE 




* 


300.00 


JONES MFG 




* 


26000.00 


RCA 




* 


200. 00 


SAVINGS BANK 




« 


208.68 




TOTAL INCOME 


* 


26708.68 




NET ADJUSTMENTS 


* 


-2364.03 




TOTAL AVAILABLE 


« 


24344.63 


EXPENDITURES! 








ALLOWANCE-MINE 


6 


* 


4160.00 


CLOTHES 


S7 


« 


8S6.2S 


ENTERTAINMENT 


89 


* 


266.32 


FILENE 


108 


« 


261.33 


LAUNDRY 


14 


* 


643.39 


LIFE INSURANCE 


30 


« 


260.00 


MAGAZINES/BOOKS 


IS 


« 


93.07 


MEDICAL IN8URAN 


69 


« 


1040.00 


POSTAGE 


19 


* 


38.80 


TAXES-FEDERAL I 


2 




3200.00 


TAXES-FICA 


3 


» 


1820.00 


TAXES-STATE 


66 


« 


1300.00 


UNION DUES 


62 


« 


104.00 


VISA BANK 


100 


« 


600.00 




TOTAL EXPENSE 


* 


1664S.38 



SURPLUS <+) /DEFICIT (-) 



7699. 23 
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Planned Income 



T he PLANNED INCOME and PLANNED EXPENDITURES 
(Chapter 12) routines are for budgeting. While an account- 
ing system will provide you with good financial records, it is 
these records used in conjunction with a budget that are 
meaningful A budget allows you to manage your finances, ar- 
range to have money available for predictable expenses, and 
know when you have extra money to spend. The PLANNED 
INCOME routine described in this chapter is what you should 
use to predict your income for each month (and consequently 
for the year) and create an income budget. The other side of 
the budget, expenditures, is treated in Chapter 12. 

Once you've prepared a budget, you can also use this rou- 
tine to compare your predicted income against what you ac- 
tually received. 

You should prepare a budget for the full year. For the first 
month's budget, write a list of your expected sources of in- 
come. Estimate the amount and note the months during which 
this income is expected. Using PLANNED INCOME as ex- 
plained below, enter the information into the system. 

In the following months, you can add to the existing bud- 
get, using either the Planned Income or the Actual Income op- 
tions to create a budget for each month. Then make changes 
to each item as needed. Note that changes can be made fairly 
rapidly (use this technique to quickly rough out your budget 
for the year, then refine it later if necessary). Review income 
reports for sources of income that aren't on your From Whom 
Income Is Received list, but on the from whom income is ex- 
pected again this year. 

Add these names to the system using the PERSONAL 
DATA routine (Chapter 1), then also add them to your budget 
using PLANNED INCOME. Using the INCOME routine 
(Chapter 2), run the INCOME FOR YEAR option. This will 
give you the total income for the year received from each 
payer. Where appropriate, calculate an average receipt per 
month (for cases like interest on your savings) and enter this 
average amount for each month into your budget. 

When you've finished creating a budget for each of the 
months of the year, select View Plan for Year (explained be- 
low). PAM will automatically create your budget for the year. 
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Finally, do the PLANNED EXPENDITURE budget using 
the routine of Chapter 12. This is so that you will be able to 
obtain the Minimum Required Balance report, which will help 
you compare planned income against planned expenditures 
and determine whether sufficient income is expected to be 
available to pay for all planned expenditures. If not, you will 
need to revise your income budget, your expense budget, or 
both. Later, you will use the Minimum Required Balance re- 
port to monitor your CHEcking, SAVing, and CASh Account 
balances. For more information, see Chapter 12. 

PLANNED INCOME will acconunodate 100 entries per 
month. 



Getting Started 

When you select PLANNED INCOME from the Main Menu, 
you will be given the following options: 

PLANNED INCOME 

1. ENTER/CHANGE DATA 

2. VIEW PLAN FOR MONTH 

3. VIEW PLAN FOR YEAR 

4. COMPARE 

5. MAIN MENU 

Select item 1 if you want to create a new budget or make 
changes to an existing one. Once created, you can see your 
budget by selecting item 2 or 3. Item 4 will display budgeted 
versus actual income received. 

When you're finished with this routine, select item 5 to 
return to the Main Menu. 



Specifics 

Selecting Enter/Change Data yields the following menu: 
ENTER/CHANGE DATA 

1. START NEW MONTH 

2. ADD NEW INCOME 

3. CORRECTIONS 

4. DELETE 

5. PLANNED INCOME MENU 

Be careful when you select the Start New Month option, 
because if data for that month has already been entered, 
selecting this option will erase that data. If you're not certain if 
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you've established a file for that month yet, check. To do this, 
return to the PLANNED INCOME menu by selecting item 5, 
then call the View Plan for Month subroutine. 

After determinging that a budget for that month doesn't 
exist, you will be asked to type in the month (two digits) and 
the year (four digits) when you select Start New Month. You 
will then be asked 

COPY LAST YEAR'S? (Y/N) 

Answer Y if last year's budget for that month or actual income 
received for that month is available on a data disk using this 
system, and if the information is approximately what you 
want to project for this year's budget. If you answer N, after a 
slight pause to clear itself, PAM will ask you to type in your 
budget for that month. For each item, you will be asked two 
questions: FROM WHOM and PLANNED AMOUNT. 

For the first, tjrpe in the name of the payer exactly as 
shown on your FROM WHOM Income Is Received list. If you 
receive more than one check from one payer each month, 
combine them for the month. For example, if you are paid by 
the week, multiply your pay by four and enter this item once 
for each month. (Note: Multiply by five every third month.) 

For PLANNED AMOUNT, type in the expected amount. 
Then answer the prompt 

ANOTHER item? (Y/N) 

Answer Y if you have additional items. Answer N, and the 
items entered will be sorted, saved, and displayed for your re- 
view. Use Corrections to correct any errors or to make 
changes. 



Using Last Year's Accounting Records 

If you answered Y when asked if you wanted to copy last 
year's data, you will see this prompt: 

INSERT DATA DISK. PRESS 'C WHEN READY. 

Insert last year's data disk. You are then given the following 
prompt: 

1. PLANNED 

2. ACTUAL INCOME 

Choose 1 (last year's budget for that month) or 2 (actual re- 
corded income for that month), whichever comes closest to 
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being correct for this year's budget. PAM will load the selected 
file and then prompt you: 

INSERT NEXT YEAR'S DATA DISK. PRESS 'C WHEN READY. 

PAM will then save the appropriate file as a Planned Income 
file for that month on next year's disk. Your budget for that 
month has now been created and you need do nothing fur- 
ther. To help you be sure of that, you will be returned to the 
PLANNED INCOME menu where you can use View Plan for 
Month to see this budget, or Enter/Change Data to change it. 

Whichever technique you use to prepare your first draft of 
a month's budget, selecting Add New Income will permit you 
to add additional items to that budget. Also, the Corrections 
and Delete options work the same as in the INCOME routine 
described in Chapter 2. Use these to further refine your budget. 



View Planned Income 

Returning to the PLANNED INCOME menu and selecting 
View Plan for Month will enable you to see all your entries for 
a month. You will be asked to type in the montli number (two 
digits). Use this routine whenever you want to see your budget 
for any month. 

Selecting View Plan for Year will cause PAM to run 
through all your planned income entries, combining those 
where the From Whom Received name is exactly the same, 
summing up and displaying the result on the screen. This is 
your budget for the year. 

Review each month carefully, then the budget for the j^ar 
as a whole. Once you're satisfied, do not change your budget 
during the year. The budget is the basis against which financial 
performance is judged and must remain constant throughout 
the year. 



Compare 

Selecting Compare will give you the following menu: 
COMPARATIVE REPORTS 

1. MONTH 

2. YEAR TO DATE 

3. PLANNED INCOME MENU 

Naturally, you must first establish a budget for the month 
under consideration before you can select the Compare option. 
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Since you should prepare your budget for all 12 months at 
one time, the above warning appears unnecessary. Neverthe- 
less, if the routine doesn't work, look to see if you've missed a 
month. 

Selecting Month will provide you with a comparison be- 
tween the budgeted and actual income received for any 
month. Also given will be the difference for each item and be- 
tween the total budget for the month and the total income re- 
ceived for the month. This allows you to see if expected 
income wasn't received (or received but not recorded) and if 
the amount received was more or less than expected. Use the 
results of this display to adjust your expenditures accordingly. 

Year to Date will combine income received from like pay- 
ers for the year to date and display a report similar to that de- 
scribed above. The differences given here represent income 
still to be received this year. This is because budgeted 
amounts are for the full year, while actual amounts are for 
year to date. This display is of major importance mainly at 
year's end. 



Reports 

The Planned Income for Month report is for budgeting and 
temporary record keeping. Use it to tell how much and from 
whom income is anticipated this month. Also, use a hard copy 
of it to check off income as it is received, then transfer the 
data to the computer when convenient. One such report can 
be generated for each month. Figure 11-1 shows the form of 
this report. 

Figure 1 M. Sample Planned Income for Month Report 

JOHN i, JOAN SMITH 210 
JANUARY 1985 



PLANNED INCOME 



FROM WHOM 



PLANNED 



ACTUAL 



+/- 



6TE 

JONES MFQ 
RCA 

SAVINGS BANK 



73.00 
2000. 00 



50.00 
16.00 



TOTAL 



2139.00 
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Figure 11-2 shows the PLANNED INCOME FOR 
MONTH report including actual income and net gain/loss for 
the month. This is for comparing budgeted versus actual in- 
come received. One such report can be generated for each 
month. 

Figure 1 1-2. Sample Net Gain Income for Month Report 



JOHN & JOAN SMITH 
JANUARY 1985 



FROM MHOM 



PLANNED INCOME 



PLANNED 



ACTUAL 



210 



+/- 



GTE 

JONES MF6 
RCA 

SAVINQS BANK 
TOTAL 



73.00 
2000. 00 
50.00 
16.00 



2139.00 



75.00 
500.00 
50.00 
17.39 

642.39 



2.00 
-1500.00 
0.00 
1.39 

-1496.61 



Figures 11-3 and 11-4 show similar reports for the year. 
Figure 1 1-3. Sample Planned Income for Year Report 



JOHN St JOAN SMITH 
1985 



FROM MHOM 



110 



PLANNED INCOME 
PLANNED 



ACTUAL 



+/- 



GTE 

JONES MFG 
RCA 

SAVINGS BANK 



292.00 
24000.00 
200.00 
192.00 



TOTAL 



24684.00 
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Figure 1 1-4. Sample Net Gain income for Year Report 

JOHN & JOAN SMITH Hi 
UP TO 123185 

PLANNED INCOME 

FROM WHOM PLANNED ACTUAL +/- 



GTE 292.00 300.00 8.00 

JONES MFG 24000.00 26000.00 2000.00 

RCA 200.00 200.00 0.00 

SAVINGS BANK 192.00 208.68 16.68 

TOTAL « 24684.00 26708.68 2024.68 



And Next Year... 

After you've created a disk for next year, as described in 
Chapter 1, review this year's budget against actual amounts, 
revise, and put the new budget on the new disk using this 
routine. 



□ 
□ 
□ 
□ 
□ 
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□ 
□ 
□ 
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Planned 
Expenditures 



As described in Chapter 11, the PLANNED INCOME and 
PLANNED EXPENDITURES routines are for budgeting. 
You use the routine of Chapter 11 to predict your income for 
each month (and consequently your income for the year) and 
to create an income budget. In this chapter we will look at 
what some consider the dark side of the budget — expenditures. 

Needless to say, it is probably not wise to spend money 
indiscriminately, using the accounting system merely to record 
the fact that your money is gone. The expenditures side of the 
budget is therefore important. You can often do little to in- 
crease income, but you can do a lot to control expenditures. 

PLANNED EXPENDITURES allows you to predict how 
much you can spend, what you will spend it for, and whether 
you can afford to spend money in the first place. Once you've 
prepared your budget, you can also use PLANNED EXPEN- 
DITURES to compare predicted expenditures against actual 
disbursements. 

Another feature of PLANNED EXPENDITURES is the 
Minimum Required Balance report. There will be months 
when planned expenditures exceed income. To prepare for 
these eventualities, it is a good idea to save ahead. The Miru- 
mum Required Balance report tells you how much money you 
must have at the end of each month in order for you to have 
enough money available for the months ahead. 

To prepare an expense budget, you should first make a 
list of your monthly payments (automobile, mortgage, and so 
on), property tax (estimated amount and when payable), 
memberships or other dues you pay (and when), magazine 
subscription renewals, and any other expenditure you can 
think of that you are likely to make this year. A good place to 
look is your checkbook log or last year's canceled checks. 

Compare your list against your Standard List of Expense 
Accounts. Using the routine described in Chapter 1, set up any 
new expense accounts needed. You cannot budget for any ex- 
pense for which no expense account exists. You must establish 
the account first using the routine in Chapter 1. 

Combine like items and make one entry per month. For 
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example, if you get an allowance every week, multiply by four 
and enter it once a month. Using this routine as explained be- 
low, enter the information into the system. 

Once you have an existing budget, you can either use the 
Planned Expenditures or the Actual Expenditures option to 
create a budget for a month, then make changes to each item 
as needed. Note that changes can be made fairly rapidly. Con- 
sequently, use this technique to quickly rough out your budget 
for the year, then refine it if needed. Review expense reports 
for expenditures that you anticipate will occur again this year. 
Add them to your budget using this routine. 

Using the EXPENSE routine (Chapter 3), run the Expense 
for Year option. This will give you the total expense for the 
year for such items as contributions, hobbies, tapes, records, 
and any other items that you buy intermittently, but that war- 
rant keeping a financial accounting. Calculate an average and 
enter this amount for each month into your budget. 

When you've finished creating a budget for each of the 
months of the year, select View Plan for Year (explained be- 
low). PAM will automatically create your budget for the year. 

If you haven't already, do the PLANNED INCOME bud- 
get using the routine from Chapter 11, 

The PLANNED EXPENDITURES routine will accom- 
modate 100 entries per month. 



Getting Started 

When you select item M, PLANNED EXPENDITURES, from 
the Main Menu, you will be given the following options: 

PLANNED EXPENDITURES 

1. ENTER/CHANGE DATA 

2. VIEW PLAN FOR MONTH 

3. VIEW PLAN FOR YEAR 

4. COMPARE 

5. MIN REQD BALANCE 

6. MAIN MENU 

Select item 1 if you want to create a new budget or make 
changes to an existing one. Once your budget is created, you 
can see it by selecting item 2 or 3. Item 4 will display bud- 
geted versus actual expenditures. Selecting Min Reqd Balance 
will create a special report that predicts the amount of money 
you need to have at the end of each month to see you through 
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the year. When you're finished with this routine, select item 6 
to return to the Main Menu. 



Specifics 

Selecting item 1, Enter/Change DATA, yields the following 
menu: 

ENTER/CHANGE DATA 

1. START NEW MONTH 

2. ADD NEW EXPENSE 

3. CORRECTIONS 

4. DELETE 

5. PLANNED EXP MENU 

Be careful when selecting the Start New Month option. If 
data for that month has already been entered, selecting this 
option will erase that data. If you're not certain if you've 
established a file for that month yet, check by returning to the 
Planned Expense menu and selecting item 5, then calling the 
View Plan for Month routine (item 2). 

Having determined that a budget for that month doesn't 
exist, when you select Start New Month, you will be asked to 
type in the month (two digits) and then the year (four digits). 
You will then be asked 

COPY LAST YEAR'S? (Y/N) 

Answer Y if last year's budget for that month or actual ex- 
penses incurred for that month are available on a data disk 
using this system, and if the information is approximately 
what you want to project for this year's budget. If you answer 
N, after a slight pause for the computer to clear itself, you will 
be asked to type in your budget for the month. For each item, 
you will be asked for the following: 

Account Number. Use a number from your Standard List 
of Expense Accounts. The routine will automatically add the 
account name. 

Planned Amount. Type in the expected amount. 
Then you'll be asked if you want 

ANOTHER ITEM? (Y/N) 

You know what to do by now. (N will sort, save, and display.) 
Use Corrections to fix any errors or make changes. 
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Using Last Year's Accounting Records 

If you answer Y when asked if you want to copy last year's 
data, you will see this prompt: 

INSERT DATA DISK. PRESS 'C WHEN READY. 

You are then given the following choice: 

1. PLANNED 

2. ACTUAL EXPENSE 

Choose 1 (last year's budget for that month) or 2 (actual re- 
corded expenditures for that month), whichever comes closer 
to being correct for this year's budget. PAM will load the se- 
lected file and then instruct 

INSERT NEXT YEAR'S DATA DISK. PRESS 'C WHEN READY. 

PAM will save the appropriate file as a Planned Expenditures 
file for that month on next year's disk. Your budget for that 
month has now been created and you need do nothing fur- 
ther. To help you be sure of that, you will be returned to the 
PLANNED EXPENDITURES menu where you can use View 
Plan for Month to see this budget or Enter/Change Data to 
alter it. 

Whichever technique you use to prepare your first draft of 
a month's budget, selecting Add New Expense will permit you 
to add additional items to that budget. The Corrections and 
Delete options work the same as in the EXPENSE routine de- 
scribed in Chapter 3. Use these to refine your budget. 



View Planned Expense 

Returning to the PLANNED EXPENDITURES menu, View 
Plan for Month will enable you to see all your entries for a 
month. You will be asked to type in the month number (two 
digits). Use this routine whenever you want to see your bud- 
get for any month. 

Choosing View Plan for Year will cause PAM to run 
through all your planned expenditure entries, combining those 
where the expense accounts are the same, and summing and 
displaying the result on the screen. This is your expense bud- 
get for the year. 

Review each month carefully, then the budget for the year 
as a whole. Once you're satisfied, do not change your budget 
during the year. The budget is the basis against which financial 
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performance is judged and it should remain constant through- 
out the year. 



Compare 

Compare will give you the following menu: 
COMPARATIVE REPORTS 

1. MONTH 

2. YEAR TO DATE 

3. PLANNED EXP MENU 

Naturally, you must first establish a budget for the month 
under consideration before you can select the COMPARE op- 
tion. Since you should prepare your budget for all 12 months 
at a time, the above warning appears unnecessary. Neverthe- 
less, if the routine doesn't work, see if you've missed a month. 

Selecting Month will provide you with a comparison be- 
tween the budgeted and actual expenses incurred for any 
month as well as the difference. This allows you to see if 
anticipated expenditures did not occur (or if the money was 
spent but not recorded), and if the amount spent was more or 
less than expected. Use the results of this display to start look- 
ing for another job or adjust your expenditures accordingly. 

Year to Date will combine similar expenses and give you 
a report for the year in the same format as described above. 
The request for Current Month and Current Date is only to 
record the date that the report was prepared. The differences 
given here represent expenses still to be made this year. This 
is because budgeted amounts are for the full year, while actual 
amounts are for year to date. This display is of major im- 
portance primarily at year's end. 



Minimum Required Balance 

The Minimum Required Balance report is a special feature of 
PAM. This helps you compare planned income against 
planned expenditures and determine whether sufficient in- 
come is expected to be available to support your planned 
expenditures. But there's more to it than that. This report tells 
you how much money you must have at the end of any 
month in order to pay your budgeted expenses for the rest of 
the year. 
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Before the Minimum Required Balance report can be pre- 
pared, you must first create an income budget for each month 
of the year, an income budget for the year, an expense budget 
for each month of the year, and an expense budget for the 
year. Use the procedvires already described. Then, select item 
5 and PAM will automatically prepare this report. 



Reports 

The Planned Expense for Month report is for budgeting and 
temporary record keeping. Use it to tell you what expenditures 
are anticipated this month. Also, use a hard copy of it to check 
off expenditures as they occur, then transfer the data to the 
computer when convenient. One such report can be generated 
for each month (see Figure 12-1). 

Figure 12-1. Sample Planned Expenditures for Month 
Report 

JOHN tc JOAN SMITH 211 
JANUARY 1985 



PLANNED EXPENDITURES 



ACCOUNT 



PLANNED 



ACTUAL 



+/- 



ALLOWANCE-HERB 
ALLOMANCE-MINE 
ELECTRICITY 



80.00 
80.00 
30.00 
33.00 
50.00 
480.00 
15.00 
20.00 
20.00 
80.00 
50.00 
400.00 
140.00 
100.00 
20.00 
8.00 



EXXON 



FIRST NATIONAL 
FOOD 



LAUNDRY 



LIFE INSURANCE 
MAQAZINES/BOOKS 
MEDICAL IN8URAN 
SMITH'S FURNITU 
TAXES-FEDERAL I 
TAXES-FICA 



TAXES-STATE 
TELEPHONE 
UNION DUES 



TOTAL 



« 



1608.00 
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Figure 12-2 shows the Planned Expenditures for Month 
report including actual expenditures and net gain/loss for the 
month. You can use this for comparing budgeted expenditures 
with actual expenditures. One such report can be generated for 
each month. 

Figure 12-2. Sample Net Gain Expenditures for Montti 
Report 

JOHN it JOAN SMITH 211 
JANUARY 19BS 

PLANNED EXPENDITURES 
ACCOUNT PLANNED ACTUAL +/- 



ALL0MANCE-HER8 


80.00 




80.00 


ALLOMANCE-niNE 


80.00 


80.00 


0.00 


ELECTRICITY 


30.00 




30.00 


EXXON 


35.00 




35.00 


FIRST NATIONAL 


SO. 00 




50.00 


FOOD 


480.00 




480.00 


LAUNDRY 


IS. 00 


12.89 


2. 11 


LIFE INSURANCE 


20.00 


5.00 


15.00 


MACAZINES/BOOKS 


20.00 


21.95 


-1.95 


MEDICAL IN8URAN 


80.00 


20.00 


60.00 


SMITH'S FURNITU 


50.00 




50.00 


TAXES-FEDERAL I 


400. 00 


100.00 


300.00 


TAXES-FICA 


140.00 


35.00 


105.00 


TAXES-STATE 


100.00 


25.00 


75.00 


TELEPHONE 


20.00 




20.00 


UNION DUES 


8.00 


2.00 


6.00 


VISA BANK 




50.00 


-50.00 


CLOTHES 




123.45 


-123.45 


FILENE 




78.99 


-78.99 


POSTABE 




2.00 


-2.00 


ENTERTAINMENT 




20.00 


-20.00 


TOTAL * 


1608.00 


576.28 


1031.72 



Figures 12-3 and 12-4 show similar reports for the year. 
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Figure 12-3. Sample Planned Expenditures for Year 
Report 

JOHN it JOAN SMITH 120 
1985 

PLANNED EXPENDITURES 
ACCOUNT PLANNED ACTUAL +/- 



ALLOMANCE-DAD 


860.00 


ALLOWANCE-HERS 


80.00 


ALLOWANCE-MINE 


80.00 


ALLOMANCE-MOM 


880.00 


ELECTRICITY 


360.00 


EXXON 


420.00 


FIRST NATIONAL 


600.00 


FOOD 


S760.00 


LAUNDRY 


180.00 


LIFE INSURANCE 


240.00 


MAGAZINES/BOOKS 


240.00 


MEDICAL INSURAN 


960.00 


SMITH'S FURNITU 


600.00 


TAXES-FEDERAL I 


4800.00 


TAXES-FICA 


1680.00 


TAXES-STATE 


1200.00 


TELEPHONE 


240.00 


UNION DUES 


96.00 


TOTAL • 


19296.00 
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Figure 12-4. Sample Net Gain Expenditures for Year 
Report 

JOHN tt JOAN SMITH 121 
UP TO 310ECEMBER8S 

PLftNNED EXPENDITURES 
ACCOUNT PLANNED ACTUAL +/- 



ALLOWANCE-DAD 


880.00 


4080.00 


-3200. 00 


ALLOMANCE-HERS 


80.00 




80.00 


ALLQUANCE-M I NE 


80. 00 


OV a W 




ALLOMANCE-MOM 


880.00 




880.00 


ELECTRICITY 


360.00 




360.00 


EXXON 


420.00 




420.00 


FIRST NATIONAL 


AOO.OO 




600. 00 


FOOD 


3760.00 




5760.00 


LAUNDRY 


180.00 


645.59 


-465.59 


LIFE INSURANCE 


240.00 


260.00 


-20.00 


MAGAZINES/BOOKS 


240.00 


93.07 


146.93 


MEDICAL INSURAN 


960.00 


1040.00 


-80.00 


SMITH'S FURNITU 


600.00 




600.00 


TAXES-FEDERAL I 


4800.00 


5200.00 


-400.00 


TAXES-PICA 


1680.00 


1820.00 


-140.00 


TAXES-STATE 


1200.00 


1300.00 


-100.00 


TELEPHONE 


240.00 




240.00 


UNION DUES 


96.00 


104.00 


-8.00 


VISA BANK 




600.00 


-600.00 


CLOTHES 




856.25 


-856.25 


FILENE 




261.35 


-261.35 


POSTAGE 




38.80 


-38.80 


ENTERTAINMENT 




266.32 


-266.32 


TOTAL * 


19296.00 


16645.38 


2650.62 



Figure 12-5 shows a sample Minimum Required Balance 
report. Notice that planned income exceeds planned expen- 
ditures for January and February, so no balance is required at 
the end of these months. Planned income exceeds planned 
expenditures in March as well, but not in April. Consequently, 
you must have at least $490.66 available at the end of March 
to carry you through April. 
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Figure 12-5. Sample Minimum Required Balance Report 

JOHN St JOAN SMITH 5S0 
1984 



NINIMUII REBUIRED BALANCE 



MONTH 


PLNINC 


PLNEXP 


REQD BAL 


JANUARY 


2139.00 


1608.00 


0.00 


FEBRUARY 


2680.07 


1702.35 


0.00 


MARCH 


2053.59 


1504.00 


490. 66 


APRIL 


2513.34 


3004.00 


0.00 


MAY 


2067.57 


1906.35 


0.00 


JUNE 


2766.09 


2640.00 


0.00 


JULY 


1919.59 


1654.00 


0.00 


AUGUST 


2680.07 


1502.35 


426.41 


SEPTEMBER 


2053.59 


2480.00 


0.00 


OCTOBER 


2513.34 


1619.00 


122.69 


NOVEMBER 


2067.57 


1706.35 


483. 91 


DECEMBER 


2766.09 


3250.00 


0.00 


TOTAL 


* 28219.91 


24576.40 





October, November, and December are a little different. 
Note that you will be short $483.91 for December, but for 
November planned income exceeds planned expenditures by 
only $361.22; you therefore need $122.69 from October to 
carry you through the rest of the year. 

These balances must show up in your CHEcking, SAVing, 
or CASh Account balance. Use the ACCOUNT BALANCES 
routine (Chapter 5) at the end of the month to verify. If that 
amount is not there, this report predicts that you will run out 
of money and you have a little time to do something about it. 



And Next Year... 

After you've created a disk for next year (as explained in 
Chapter 1), review this year's budget against actual amounts, 
then, using this routine, revise, and put the new budget on the 
new disk. 
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Back-Up Files 



nee you've established your accounting system, what else is 
there to do? Protect your information. No, I don't think 
you need to worry about spies wanting your data disk or even 
your copy of PAM. You should, however, worry about acci- 
dentally losing your data through a procedural error, coffee 
spills, or physical damage. The protection you need is a back- 
up disk. 

Use the back-up routine at the end of every month to 
make a copy of your data disk for safekeeping. This is a 
worthwhile safety precaution. Don't rely on having only one 
copy of your accounting data. 

The reason for a back-up disk is that you can use it if, for 
any number of reasons, the primary disk malfunctions. Of 
course, data entered into the system since the back-up disk 
was last prepared will be missing. You should make a back-up 
disk only at a logical stopping point — such as the end of a 
month — so that you can determine exactly what is missing. 

By making a back-up disk at the end of each month, you 
will know that you've recovered everything up to that point. 
Simply reenter this month's data and you're back in business. 
Naturally, you'll also need to find out what went wrong with 
the primary disk to prevent it from happening again. 

You can use the same disk as your back-up disk over and 
over again throughout the year. Since disks wear out, how- 
ever, start the new year with both a new data disk and a new 
back-up disk. 

This routine cannot be used to set up or format next year's 
data disk. To do that, use the disk formatting instructions in 
your disk drive manual. 



Specifics 

Select BACK-UP FILES from the Main Menu. You will be 
asked to type in the year. Since this routine is used only to 
make a back-up copy of this year's accounting data, type in 
the current year (four digits). 

You will then be asked to INSERT DATA DISK. The data 
disk is the original — the disk that you wish to copy. This rou- 
tine will read and henceforth identify it as the original so that 
you won't inadvertently insert the wrong disk later on in the 
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process. Insert the data disk into the disk drive and press the 
space bar. 

The next prompt is INSERT BACK-UP DISK. If you 
haven't made a back-up disk yet this year, just insert a new 
disk into the disk drive. You don't need to format the disk — 
this routine will format it for you automatically. The disk 
name will be BACK-UP with the year added, and the ID num- 
ber will be SHIFT-E2. If you've already made a back-up disk 
this year, insert it and press the space bar. The prompts will 
alternate until you've completed the coppng process. 

Put the back-up disk in a safe place. Never use it as your 
main data disk. The routine will not recognize the back-up disk as 
the data disk and will refuse to copy to it. This routine has been 
specifically devised to satisfy the needs of this system. Do not use 
it for any other purpose. 



And Next Year... 

You cannot use this routine to create a new data disk for next 
year. Instead, use the standard disk commands and procedure 
detailed under "And Next Year..." in Chapter 1. 

Don't forget to make frequent back-ups. At the end of 
each month, use this routine to make a back-up disk of your 
accounting data. The same disk can be used over and over 
again throughout the year. 
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A Beginner's Guide to Typing In Programs 

A computer cannot perform any task by itself. Like a car with- 
out gas, a computer has potential, but without a program, 
it isn't going anywhere. Most of the programs published in 
this book are written in a computer language called BASIC, 
which is easy to learn and is built into all Commodore 64s. 



BASIC Programs 

Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, and number is 
significant. A common mistake is substituting the letter O for 
the numeral 0, a lowercase I for the numeral 1, or an upper- 
case B for the numeral 8. Also, you must enter all punctuation 
marks, such as colons and commas, just as they appear in the 
book. Spacing can be important. To be safe, type in the list- 
ings exactly as they appear. 



Braces and Special Characters 

The exception to this typing rule is when you see the braces, 
such as {DOWN}. Anything within a set of braces is a special 
character or characters that cannot easily be listed on a printer. 
When you come across such a special statement, refer to 
"How to Type In Programs" below. 



About DATA Statements 

Some programs contain a section or sections of DATA state- 
ments. These lines provide information needed by the pro- 
gram. Some DATA statements contain actual programs (in 
machine language), while others may contain graphics codes. 
These lines are especially sensitive to errors. 

If a single number in any one DATA statement is 
mistyped, your machine could lock up, or crash. The keyboard 
and RUN/STOP key may seem dead, and the screen may go 
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blank. But don't panic. No damage has been done. To regain 
control, turn off your computer and then turn it back on. This 
will erase whatever program was in memory, so always save a 
copy of your program before you run it. If your computer 
crashes, you can load the program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an er- 
ror message when the program is run. The error message may 
refer to the program line that reads the data. However, the er- 
ror is still in the DATA statements. 



Get to Know Your Mactilne 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from disk. Of course, you'll 
want to save a copy of your program so that you won't have 
to type it in every time you want to use it. Learn to use your 
machine's editing functions. How do you change a line if you 
make a mistake? You can always retype the line, but you 
should at least know how to backspace. Do you know how to 
enter reverse-video, lowercase, and control characters? It's all 
explained in your manual. 

In order to insure accurate entry of each program line, 
we've included a checksum program. Please read "The Auto- 
matic Proofreader" below before typing in any of the pro- 
grams in this book. 



A Quick Review 

1. Type in the program a line at a time in order. Press RE- 
TURN at the end of each line. Use INST/DEL or the cursor 
keys to correct mistakes. 

2. Check the line you've typed against the line in the book. 
You can check the entire program again if you get an error 
when you run the program. 



How to Type In Programs 

Many of the programs in this book contain special control 
characters (cursor controls, color keys, reverse video, and so 
on). To make it easy to know exactly what to type when enter- 
ing one of these programs into your computer, we've estab- 
lished the following listing conventions. 
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Generally, 64 program listings will contain words within 
braces which spell out any special characters: {DOWN} means 
to press the cursor-down key; {5 SPACES} means to press the 
space bar five times. To type {SHIFT-SPACE}, simply hold 
down the SHIFT key while pressing the space bar. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key will be 
underlined in our listings. For example, S means to type the S 
key while holding the SHIFT key. This will appear on your 
screen as a heart symbol. If you find an underlined key en- 
closed in braces (for example, {10 N}), you should type the 
key as many times as indicated. In this case, you would enter 
ten shifted N's. 

If a key is enclosed in special brackets, \<>\, you should 
hold down the Commodore key while pressing the key inside 
the special brackets. (The Commodore key is the key in the 
lower-left comer of the keyboard.) Again, if the key is pre- 
ceded by a number, you should press the key as many times 
as necessary. 

Rarely, in programs for the 64, you'll see a solitary letter 
of the alphabet enclosed in braces. These characters can be en- 
tered by holding down the CTRL key while t)^ing the letter in 
the braces. For example, {A} indicates that you should press 
CTRL-A. 



Quote Mode 

You know that you can move the cursor around the screen 
with the CRSR keys. Sometimes a programmer will want to 
move the cursor under program control. That's why you see 
all the {LEFT}'s, {HOME}'s, and {BLU}'s in our programs. 
The only way the computer can tell the difference between di- 
rect and programmed cursor control is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), 
you are in the quote mode. If you type something and then try 
to change it by moving the cursor left, you'll only get a bunch 
of reverse-video lines. These are the symbols for cursor left. 
The only editing key that isn't programmable is the 
INST/DEL key; you can still use INST/DEL to back up and 
edit the line. Once you type another quote, you are out of 
quote mode. 

You also go into quote mode when you INSerT spaces 
into a line. In any case, the easiest way to get out of quote 
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mode is just to press RETURN. You'll then be out of quote 
mode and you can cursor up to the mistyped line and fix it. 

To insure accurate entry of each program line, we've in- 
cluded a checksum program. Please read "The Automatic 
Proofreader" below before typing in any of the programs in 
this book. 

Refer to the following table when entering cursor and 
color control keys: 



WhenYbu 
Read: 

{CLR} 

{HOME} 

(UP) 

{DOWN} 

{LEFT} 

{RIGHT} 

{RVS} 

{OFF} 

{BLK} 

{WHT} 

{RED} 

{CYN} 

{PUR} 

{GRN} 

{BLU} 

{YEL} 



Press: 



SHIFr 



CLR/HOME 



aR/HOME 



SHIFT 



t CRSR i 



t CRSR I 



SHIFT 



•-CRSR-* 



«-CRSR-» 



CTRL 


9 


CTRL 





CTRL 


1 


CTRL 


2 


CTRL 


3 


CTRL 


4 


CTRL 


5 


CTRL 


6 


CTRL 


7 


CTRL 


8 



See: 

m 



[9 
■ 

■ 

m 



WhenYbu 
Read: 

g3i 
§4^ 

i«i 

{ Fl } 
{ K } 
{ F3 } 
{ » } 
{ F5 } 
{ F6 } 
{ F7 } 
{ F8 } 
4 

T 



Press: 



COMMODORE 



COMMODORE 



COMMODORE 



COMMODORE 



COMMODORE 



COMMODORE 



COMMODORE 



COMMODORE 



See: 

Hcg 

HE 
ED 



SHIFT 



SHIFT 



SHIFr 



SHIFr 



SHIFT 



a] 
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The Automatic Proofreader 

Charles Brannon 

"The Automatic Proofreader" will help you type in program 
listings without typing mistakes. It is a short error-checking 
program that hides itself in memory. When activated, it lets 
you know immediately after you type a line from a program 
listing if you've made a mistake. Please read these instructions 
carefully before typing any programs in this book. 



Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be very 
careful when entering the DATA statements — don't type an 
I instead of a 1, an O instead of a 0, extra commas, and so 
forth. You may want to toggle between the uppercase/ 
lowercase and the uppercase/graphics character sets (by 
pressing the Commodore and SHIFT keys together). Since 
letters will change shape and numbers will not, it is easy to 
find characters mistakenly placed in long lists of numbers. 

2. Save the Proofreader on disk at least twice before running it 
for the first time. This is very important because the Proof- 
reader erases part of itself when you first type RUN. 

3. After the Proofreader is saved, type RUN. It will check itself 
for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place — you'll need it again 
and again, every time you enter a program from this book, 
COMPUTE! magazine, or COMPUTEI's Gazette. 

4. When you have a correct version of the Proofreader, it ac- 
tivates itself. You are now ready to enter a program listing. 
If you press RUN/STOP-RESTORE, the Proofreader is dis- 
abled. To reactivate it, just type the command SYS 886 and 
press RETURN. 



Using the Proofreader 

The program listings in this book have a checksum number ap- 
pended to the end of each line, for example, :rem 123. Don't 
enter this statement when typing in a program. It is just for your 
information. The rem makes the number harmless if someone 
does tj^e it in. It will, however, use up memory if you enter 
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it, and it will confuse the Proofreader even if you entered the 
rest of the line correctly. 

When you type in a line from a program listing and press 
RETURN, the Proofreader displays a number at the top of 
your screen. This checksum number must match the checksum 
number in the printed listing. If it doesn't, it means you typed 
the line differently from the way it is listed. Immediately re- 
check your typing. Remember, don't type the rem statement 
with the checksum number; it is published only so that you 
can check it against the number which appears on your screen. 

The Proofreader isn't picky about spaces. It will not notice 
extra spaces or missing ones. This is for your convenience 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
especially when they are inside quotation marks. 

Due to the nature of a checksum, the Proofreader will not 
catch all errors. Since 1+3 + 5 = 3 + 1+5, the Proof- 
reader cannot catch errors of transposition. Thus, the Proof- 
reader will not notice if you tj^e GOTO 385 where you mean 
GOTO 835. In fact, you could type the line in any order and 
the Proofreader wouldn't notice. The Proofreader should help 
you catch most t5^ing mistakes, but keep this in mind if a pro- 
gram that checks out with the Proofreader still seems to have 
errors. 

There's another thing to watch out for: If you enter the 
line by using abbreviations for commands, the checksum will 
not match up. But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This will eliminate 
the abbreviations. Then move the cursor up to the line and 
press RETURN. It should now match the checksum. You can 
check whole groups of lines this way. 



Special Tape SAVE Instructions 

If you want to make a backup copy of the Proofreader on a 
tape, you need to do the following. (Remember that PAM 
works only if you own a disk drive, though.) When you're 
through typing in a listing, you must disable the Proofreader 
before saving the program on tape. Disable the Proofreader by 
pressing RUN/STOP-RESTORE (hold down the RUN/STOP 
key and sharply hit the RESTORE key). This procedure isn't 
necessary for disk SAVEs, but you must disable the Proofreader 
this way before a tape SAVE. 
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SAVE to tape erases the Proofreader from memory, so 
you'll have to load and run it again if you want to type an- 
other listing. SAVE to disk doesn't erase the Proofreader. 



Hidden Perils 

The Proofreader's home in memory isn't a very safe haven. 
Since the cassette buffer is wiped out during tape operations, 
you need to disable the Proofreader with RUN/STOP- 
RESTORE before you save your program. This applies only to 
tape use. Disk users have nothing to worry about. 

Not so for 64 owners with tape drives. What if you type 
in a program in several sittings? The next day, you come to 
your computer, load and run the Proofreader, then try to load 
the partially completed program so that you can add to it. But 
since the Proofreader is trpng to hide in the cassette buffer, it 
is wiped out! 

What you need is a way to load the Proofreader after 
you've loaded the partial program. The problem is a tape 
LOAD to the buffer destroys what it's supposed to load. 

After you've typed in and run the Proofreader, enter the 
following three lines in direct mode (without line numbers) ex- 
actly as shown: 

A$='TROOFREADER.T": B$="{10 SPACES}": FOR X = 1 
TO 4: A$=A$-1-B$: NEXTX 

FOR X = 886 TO 1018: A$=A$-I-CHR$ (FEEK(X)): NEXTX 

OPEN 1, l,l,A$:CLOSEl 

After you enter the last line, you will be asked to press 
RECORD and PLAY on your cassette recorder. Put this pro- 
gram at the beginning of a new tape. This gives you a new 
way to load the Proofreader. Anytime you want to bring the 
Proofreader into memory without disturbing anything else, put 
the cassette in the tape drive, rewind, and enter 

OPENl:CLOSEl 

You can now start the Proofreader by typing SYS 886. To 
test this, PRINT PEEK (886) should return the number 173. If 
it doesn't, repeat the steps above, making sure that A$ 
("PROOFREADER.T") contains 13 characters and that B$ con- 
tains ten spaces. 

You can now reload the Proofreader into memory when- 
ever LOAD or SAVE destroys it, restoring your personal typing 
helper. 
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The Automatic Proofreader 

100 PRINT" {CLR} PLEASE WAIT . . . " :FORI=886TO1018 :READ 

A : CK=CK+A : POKEI , A : NEXT 
110 IF CK017539 THEN PRINT" {DOWN} YOU MADE AN ERRO 

R " : P RINT "IN DATA STATEMENTS . " : END 
120 SYS886 :PRINT"{C2iRl {2 DOWN } PROOFREADER ACTIVATE 

D. " :NEW 

886 DATA 173,036,003,201,150,208 
892 DATA 001,096,141,151,003,173 
898 DATA 037,003,141,152,003,169 
904 DATA 150,141,036,003,169,003 
910 DATA 141,037,003,169,000,133 
916 DATA 254,096,032,087,241,133 
922 DATA 251,134,252,132,253,008 
928 DATA 201,013,240,017,201,032 
934 DATA 240,005,024,101,254,133 
940 DATA 254,165,251,166,252,164 
946 DATA 253,040,096,169,013,032 
952 DATA 210,255,165,214,141,251 
958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019,032,210 
970 DATA 255,169,018,032,210,255 
976 DATA 169,058,032,210,255,166 
982 DATA 254,169,000,133,254,172 
988 DATA 151,003,192,087,208,006 
994 DATA 032,205,189,076,235,003 
1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 



PAM 

Remember to use the name above for the program you place on the PAM master disk. 

20 POKE53280 , 5 :POKE5328 1 , 5 :P0KE646 , 1 
30 PRINT"{CLR} ":PRINTCHR$(8)CHR$(142) 
40 PRINTTAB(15)" {5 DOWN }COMPUTE 1 ' S" 
50 PRINTTAB(16)"{2 DOWN} PERSONAL" 
60 PRINTTAB(15)" {2 D0WN}ACC0UNTING" 
70 PRINTTAB(16)"{2 DOWnJmANAGER" 
80 FORD=1TO2000 :NEXT 

90 CK=0:PRINT" {5 DOWN} ONE MOMENT PLEASE. 



100 FORI=828T0894 

110 READD: POKEI, D:CK=CK+D:NEXT: PRINT". . 
120 DATA 169,3,133,251,169,15,141,24,212 
,5,212,169,247,141,6,212,169 



: rem 39 
:reni 1 
:rem 208 
:rem 75 
:rem 210 
:rem 228 
:rein 223 
• • ■ 
:rem 245 
:rem 232 
"j:rem 49 
,169,0,141 
:reni 248 
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130 DATA 17,141,4,212,169,40,141,1,212,169,0,141,0 
,212,161,100,202,208,253,169 :rem 213 

140 DATA 16,141,4,212,169,255,133,252,162,0,202,20 
8,253,198,252,208,249,198,251 trem 56 

150 DATA 208,199,169,0,141,24,212,96 :rem 241 

160 FOR 1=51000 TO 52651 :rein 160 

170 READD:POKEI,D:CK=CK+D: NEXT J PRINT". . "irem 252 
180 IFCK=199912THEN1170 :rem 42 

190 POKE 53 281, 2: POKE 53280,8: POKE 646,8: PRINT CHR 
$(14) trem 228 

191 PRINT"{CLR} {5 D0VJN}{4 RIGHT }STOPl ": PRINT" 

{4 RIGHT lERROR IN DATA STATEMENTS." : rem 159 

192 PRINT "{4 RIGHT }CHECK YOUR DATA BEFORE GOING ON 
. " : rem 26 

193 PRINT "{4 RIGHT }BE SURE TO SAVE THIS PROGRAM B 
EFORE" :rera 253 

194 PRINT "{4 RIGHT }ATTEMPTING TO RUN IT AGAIN." 

trem 35 

195 PRINT "{9 D0VJN}{5 RIGHT }PRESS RETURN TO LIST P 
ROGRAM. " trem 172 

196 GETR$ :IFR$="" THEN 196 trem 133 

197 IPR$<>CHR$(13)THEN 196 trem 165 

198 PRINT "{CLR}";CHR$(142) tPOKE 53281,6 tPOKE 5328 
0,14tPOKE 646,14 trem 142 

199 LIST trem 223 

200 DATA76 , 160 , 205 , 169 , 7 , 141 , 32 , 208 , 141 , 33 , 208 , 169 
,6,141,134,2,32 trem 164 

210 DATA106, 203, 189, 204, 203, 240, 7, 32, 210, 255, 232, 7 

6,75,199,32,113,203 trem 105 

220 DATA189 , 232 , 203 , 240 , 7 , 32 , 210 , 255 , 232 , 76 , 90 , 199 

,32,120,203,189,251 trem 116 

230 DATA203, 240, 7, 32, 210, 255, 232, 76, 105, 199, 32, 127 

,203,189,7,204,240 trem 59 

240 DATA7 , 32 , 210 , 255 , 232 , 76 , 120 , 199 , 32 , 134 , 203 , 189 

,20,204,240,7,32 :rem 211 

250 DATA210, 255, 232, 76, 135, 199, 32, 141, 203, 189, 37, 2 

04,240,7,32,210,255 trem 115 

260 DATA232 , 76 , 150 , 199 , 32 , 148 , 203 , 189 , 59 , 204 , 240 , 7 

,32,210,255,232,76 trem 81 

270 DATA165, 199, 32, 155, 203, 189, 76, 204, 240, 7, 32, 210 

,255,232,76,180,199 trem 141 

280 DATA32, 162, 203, 189, 90, 204, 240, 7, 32, 210, 255, 232 

,76,195,199,32,169 trem 84 

290 DATA203, 189, 104, 204, 240, 7, 32, 210, 255, 232, 76, 21 

0,199,165,203,201,64 trem 160 

300 DATA240 , 250 , 201 , 10 , 208 , 3 , 76 , 225 , 200 , 201 , 28 , 208 

,3,76,4,201,201 :rem 132 

310 DATA20, 208, 3, 76, 39, 201, 201, 18, 208, 3, 76, 74, 201, 

201,14,208,3 :rem 2 
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320 DATA76 , 109 , 201 , 201 , 21 , 208 , 3 , 76 , 144 , 201 , 201 , 26 , 

208,3,76,179,201 jrem 206 

330 DATA201 , 29 , 208 , 1 97 , 32 , 68 , 229 , 32 , 106 , 203 , 189 , 20 

4,203,240,7,32,210 :rem 60 

340 DATA255 , 232 , 76 , 31 , 200 , 32 , 183 ,203 , 189 , 125 , 204 , 2 

40,7,32,210,255,232 trem 101 

350 DATA76, 46, 200, 32, 120, 203, 189, 143, 204, 240, 7, 32, 

210,255,232,76,61 irem 4 

360 DATA200 , 32 , 127 , 203 , 189 , 162 , 204 , 240 , 7 , 32 , 2 10 , 25 

5,232,76,76,200,32 :rem51 
370 DATA134, 203, 189, 180, 204, 240, 7, 32, 210, 255, 232, 7 

6,91,200,32,141,203 irem 99 

380 DATA189, 200, 204, 240, 7, 32, 210, 255, 232, 76, 106, 20 

0,32,148,203,189,226 : rem 160 

390 DATA204 , 240 , 7 , 32 , 210 , 255 , 232 , 76 , 121 , 200 , 32 , 176 

,203,189,245,204,240 :rem 152 

400 DATA7 , 32 , 210 , 255 , 232 , 76 , 136 , 200 , 32 , 169 , 203 , 189 

,104,204,240,7,32 :rem 2 

410 DATA210 , 255 , 232 , 76 , 151 , 200 , 165 , 203 , 201 , 64 , 240 , 

250,201,33,208,3,76 :rem 89 

420 DATA214, 201, 201, 34, 208, 3, 76, 249, 201, 201, 37, 208 

,3,76,28,202,201 :rein 200 

430 DATA42, 208, 3, 76, 63, 202, 201, 36, 208, 3, 76, 98, 202, 

201,39,208,3 :rem 21 

440 DATA76 , 1 33 , 202 , 201 , 38 , 208 , 3 , 76 , 160 , 205 , 201 , 1 , 2 

08,197,76,160,205 :rem 10 

450 DATA32, 168, 202, 189, 232, 203, 141, 52, 3, 232, 189, 23 

2,203,240,7,32,210 trem 51 

460 DATA255 , 232 , 76 , 235 , 200 , 169 , 8 , 141 , 53 , 3 , 169 , 205 , 

141,54,3,76,178 :rein 191 

470 DATA202, 32, 168, 202, 189, 251, 203, 141, 52, 3, 232, 18 

9,251,203,240,7,32 irem 56 

480 DATA210 , 255 , 232 , 76 , 14 , 201 , 169 , 21 , 141 , 53 , 3 , 169 , 

205,141,54,3,76 trem 171 

490 DATA178 , 202 , 32 , 168 , 202 , 189 , 7 , 204 , 141 , 52 , 3 , 232 , 

189,7,204,240,7 trem 181 

500 DATA32, 210, 255, 232, 76, 49, 201, 169, 27, 141, 53, 3,1 

69,205,141,54,3 :rem 170 

510 DATA76, 178, 202, 32, 168, 202, 189, 20, 204, 141, 52, 3, 

232,189,20,204,240 trem 58 

520 DATA7, 32, 210, 255, 232, 76, 84, 201, 169, 34, 141, 53, 3 

,169,205,141,54 :rem 173 

530 DATA3 , 76 , 178 , 202 , 32 , 168 , 202 , 189 , 37 , 204 , 1 41 , 52 , 

3,232,189,37,204 : rem 233 

540 DATA240, 7, 32, 210, 255, 232, 76, 119, 201, 169, 45, 141 

,53,3,169,205,141 :rem 13 

550 DATA54 , 3 , 76 , 178 , 202 , 32 , 168 , 202 , 189 , 59 , 204 , 141 , 

52,3,232,189,59 :rem 198 

560 DATA204, 240, 7, 32, 210, 255, 232, 76, 154, 201, 169, 61 

,141,53,3,169,205 srem 12 
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570 DATA141 , 54 , 3 , 76 , 178 , 202 , 32 , 168 , 202 , 189 , 76 , 204 , 

141,52,3,232,189 :reni 239 

580 DATA76 , 204 ,240 ,7,32, 210 , 255 , 232 , 76 , 189 ,201 , 169 

,72,141,53,3,169 :rejn 238 

590 DATA205 , 141 , 54 , 3 , 76 , 178 , 202 , 32 , 168 , 202 , 189 , 125 

,204,141,52,3,232 :rem 17 

600 DATA189, 125, 204, 240, 7, 32, 210, 255, 232, 76, 224, 20 

1,169,80,141,53,3 : rem 9 

610 DATA169, 205, 141, 54, 3, 76, 178, 202, 32, 168, 202, 189 

,143,204,141,52,3 :rem 19 

620 DATA232 , 189 , 143 , 204 , 240 ,7 , 32 , 210 ,255 ,232,76,3, 

202,169,92,141,53 irem 14 

630 DATA3 , 169 , 205 , 141 , 54 , 3 , 76 , 178 , 202 , 32 , 168 , 202 , 1 

89,162,204,141,52 :rein 22 

640 DATA3, 232, 189, 162, 204, 240, 7, 32, 210, 255, 232, 76, 

38,202,169,105,141 :rem 63 

650 DATA53 , 3 , 169 , 205 , 141 , 54 , 3 , 76 , 178 , 202 , 32 , 168 , 20 

2,189,180,204,141 :rein 25 

660 DATA52, 3, 232, 189, 180, 204, 240, 7, 32, 210, 255, 232, 

76,73,202,169,117 :rein 20 

670 DATA141 , 53 , 3 , 169 , 205 , 141 , 54 , 3 , 76 , 178 , 202 , 32 , 16 

8,202,189,200,204 trem 20 

680 DATA141 , 52 , 3 , 232 , 189 ,200 , 204 , 240 , 7 , 32 , 210 , 255 , 

232,76,108,202,169 :rem 59 

690 DATAl 31 , 1 41 , 53 , 3 , 169 , 205 , 1 41 , 54 , 3 , 76 , 178 , 202 , 3 

2,168,202,189,226 : rem 29 

700 DATA204, 141, 52, 3, 232, 189, 226, 204, 240, 7, 32, 210, 

255,232,76,143,202 :rem 49 

710 DATA169, 147, 141, 53, 3, 169, 205, 141, 54, 3, 76, 178, 2 

02,32,68,229,162 :rem 242 

720 DATA3, 160, 9, 76, 197, 203, 32, 124, 232, 169, 1,162, 8, 

160,0,32,186 :rem 25 

730 DATA2 55 , 173 , 52 , 3 , 174 , 53 , 3 , 172 , 54 , 3 , 32 , 189 , 2 55 , 

169,0,162,1 :rem 239 

740 DATA160 ,8 , 32 , 213 , 255 , 134 ,45 , 132 , 46 , 169 , 15 , 162 , 

8,168,32,186,255 :rem 242 

750 DATA169, 0,32, 189, 255, 32, 192, 255, 162, 15, 32, 198, 

255,32,207,255,201 :rem 85 

760 DATA50, 144, 75, 169, 13, 32, 210, 255, 56, 32, 207, 255, 

201,64,144,248,32 irem 23 

770 DATA210, 255, 32, 207, 255, 201, 44, 240, 6, 32, 210, 255 

,76,3,203,32,207 srem 207 

780 DATA255, 201, 13, 208, 249, 32, 210, 255, 169, 15, 32, 19 

5,255,32,204,255,169 :rem 182 

790 DATA18 , 141 , 55 , 3 , 169 , 255 , 141 , 56 , 3 , 162 ,0 , 202 , 208 

,253,206,56,3 :rem 77 

800 DATA208 , 248 , 206 , 55 , 3 , 208 , 236 , 32 , 56 , 199 , 32 , 207 , 

255,201,13,208,249 :rem 81 

810 DATA169, 15, 32, 195, 255, 32, 204, 255, 169, 7, 141, 134 

,2,160,0,185,4 srem 128 
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820 DATA205, 240, 7, 153, 119, 2, 200, 76, 84, 203, 169, 13,1 

41,122,2,169,4 :rem 115 

830 DATAl 33 , 198 , 96 , 162 , 2 , 160 , 7 , 76 , 197 , 203 , 162 , 4 , 16 

0,9,76,190,203 :rein 146 

840 DATA162, 6, 160, 9, 76, 190, 203, 162, 8, 160, 9, 76, 190, 

203,162,10,160 :rem 127 

850 DATA9 , 76 , 190 , 203 , 162 , 12 , 160 ,9 , 76 , 190 , 203 , 162 , 1 

4,160,9,76,190 :rem 137 

860 DATA203 , 162 , 16 , 160 , 9 , 76 , 190 , 203 , 162 , 18 , 160 , 9 , 7 

6,197,203,162,21 :rein 234 

870 DATAl 60 , 10 , 76 , 197 , 203 , 162 , 16 , 160 , 9 , 76 , 1 97 , 203 , 

162,4,160,9,76 : rem 145 

880 DATAl 97 , 203 , 24 , 32 , 240 , 255 , 162 , 1 , 96 , 24 , 32 ,240 , 2 

55,162,0,96,80 :rein 131 

890 DATA69, 82, 83, 79, 78, 65, 76, 32, 65, 67, 67, 79, 85, 78, 

84,73,78 :rem 177 

900 DATA71 , 32 , 77 , 65 , 78 , 65 , 71 , 69 , 82 ,0 , 13 , 65 , 46 , 32 , 3 

2,80,69 :rein 62 

910 DATA82, 83, 79, 78, 65, 76, 32, 68, 65, 84, 65, 0,6, 66, 46 

,32,32 :reni 27 

920 DATA73 , 78 , 67 , 79 , 77 ,69 , , 7 , 67 , 46 , 32 , 32 , 69 , 88 , 80 

,69,78 I rem 53 

930 DATA83, 69, 0,11, 68, 46, 32, 32, 65, 68, 74, 85, 83, 84, 7 

7,69,78 :rem 88 

940 DATA84, 83, 0,16, 69, 46, 32, 32, 65, 67, 67, 79, 85, 78, 8 

4,32,66 :rein 86 

950 DATA65 , 76 , 65 , 78 , 67 , 69 , 83 , , 11 , 70 , 46 , 32 , 32 , 73 , 7 

8,86,69 :rem 84 

960 DATA83 , 84 , 77 , 69 , 78 , 84 , 83 ,0 , 8 , 71 , 46 , 32 , 32 , 80 , 82 

,79,80 :reni 33 

970 DATA69, 82, 84, 89, 0,72, 46, 32, 32, 78, 69, 88, 84, 32, 8 

0,65,71 :rem 87 

980 DATA69, 0,80, 82, 69, 83, 83, 32, 68, 69, 83, 73, 82, 69, 6 

8,32,76 :rem 97 

990 DATA69 , 84 , 84 , 69 , 82 ,0 , 12 , 73 , 46 , 32 , 32 , 85 , 78 , 80 , 6 

5,73,68 :rem 84 

1000 DATA32, 66, 73, 76, 76, 83, 0,13, 74, 46, 32, 32, 66, 65, 
76,65,78 :rem 108 

1010 DATA67, 69, 32, 83, 72, 69, 69, 84, 0,12, 75, 46, 32, 32, 
83,84,77 :rem 115 

1020 DATA78, 84, 32, 79, 70, 32, 73, 38, 69, 0,14, 76, 46, 32, 
32,80,76 trem 104 

1030 DATA65 , 78 , 78 , 69 , 68 , 32 , 73 , 78 , 67 , 79 , 77 , 69 ,0 , 16 , 
77,46,32 :rem 144 

1040 DATA32 , 80 , 76 , 65 , 78 , 78 , 69 , 68 , 32 , 69 , 88 , 80 ,69 , 78 
,68,73,84 :rem 205 

1050 DATA85, 82, 69, 83, 0,13, 78, 46, 32, 32, 66, 65, 67, 75, 
45,85,80 I rem 118 

1060 DATA32, 70, 73, 76, 69, 83, 0,79, 46, 32, 32, 70, 73, 82, 
83,84,32 ,rem 105 
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1 — I 1070 DATA80, 65, 71, 69, 0,82, 85, 78, 0,80, 69, 82, 83, 79, 7 

! ! 8,65,76 :rem 85 

1080 DATA32, 68, 65, 84, 65, 73, 78, 67, 79, 77, 69, 69, 88, 80 
,69,78,83 :rem 219 

1090 DATA69, 65, 68, 74, 85, 83, 84, 77, 69, 78, 84, 83, 65, 67 
,67,79,85 rrem 224 

1100 DATA78, 84, 32, 66, 65, 76, 65, 78, 67, 69, 83, 73, 78, 86 
r— . ,69,83,84 :rem 206 

! 1 1110 DATA77, 69, 78, 84, 83, 80, 82, 79, 80, 69, 82, 84, 89, 85 

,78,80,65 :rem 207 

1120 DATA73, 68, 32, 66, 73, 76, 76, 83, 66, 65, 76, 65, 78, 67 
,69,32,83 :rem 192 

11 30 DATA72 , 69 , 69 , 84 , 83 , 84 , 77 , 78 , 84 , 32 , 79 , 70 , 32 , 7 3 
,38,69,80 :rein 191 

1140 DATA76 , 65 , 78 , 78 ,69 , 68 , 32 , 73 , 78 , 67 , 79 , 77 , 69 , 80 
,76,65,78 :reni 218 

1150 DATA78, 69, 68, 32, 69, 88, 80, 69, 78, 68, 73, 84, 66, 65 
,67,75,45 :rem 212 

1160 DATA85,80,32,70,73,76,69,83 :rem 104 

1161 DATA32, 68, 229, 165, 203, 201, 64, 208, 250, 76, 59, 19 
9 :rera 20 

1170 POKB631,83:POKE632,89:POKE633,83 :rein 102 

1 180 POKE634 , 53 :POKE635 , 49 :POKE636 , 48 :POKE637 , 48 : P 
OKE638,48:POKE639,13 :rem 72 

1190 POKE198,9 :rem 1 

1200 NEW :rem 173 



PERSONAL DATA 

Remember to use the name above for the program you place on the PAM master disk. 

20 BO=53280:BA=53281:Fl=0:El»0:E2=0tE3=0:E4=0:Dl=0 

:I1=0 :rein 4 

30 AA=0 :BB=0 :Z-0:NN»0:X=0:LL=0:KK=14:MA=1 :»=1 :SM-0 

:E-0 :rem 208 

40 LF?=CHR$(10) :CR§=CHR$(13) :SP$=CHR$(32) iNC=80:PC 

=0 :rein 143 

50 S$=" " :F0RSP=1T0NC : S5!=S$+SP$ :NEXT i LA$=LEFT$ ( S$ , 1 

0)iLB$="":RA$=" :reni 28 

60 F$=""iN$="":N1$=""jN2$=""iN3$="":N4$=" :reni 218 
70 A$="":B$="":Y$="":SM$="":E$=" :rein 39 

80 DIMFW$(40),X$(60),NE$(60),DE§(25),OE$(15),CE$(4 

0),L$(30),DI$(10),DK$(10) :rem 218 

90 DIMFW(40),X(60),NE(60),DE(25),OE(15),CE(40),DI( 

10) :rein 254 

100 L§(1)="DAY (2 DIGITS)":L$(2)="TYPE":L$(3)="FRO 
M WHOM :reni 21 

110 L$ ( 4 ) = "DISPOSITION " : L$ ( 5 ) = "AMOUNT " : L$ ( 6 ) = " ACCO 
UNT NO. :rem 74 
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120 L$( 14)= "TOTAL EXPENSE" iL$ ( 15 )= "TOTAL INCOME"iL 
$( 16) = "BALANCE :reni 158 

130 L${17)="TOTAL":L$(18)="TO WHOM" :L$ ( 19 )="CHE" :L 
$(20)=" :reni 247 

140 L$(21)="":L$(22)="":L$(23)="":L$(24)="nATE: 

:rem 19 

150 L$(25)="NOT DEDUCTIBLE: ":L$(26)="DEDUCTIBLE: 

L$( 27) = "OTHER: :rein 177 

160 L$ ( 28 ) = "CREDITORS : " : L$ (30 ) = " . " : POKEBO , 12 : POKEB 

A,12:POKE646,l:PRINT"{CLR}{2 DOWN} :rem 65 

170 PRINTTAB( 13) "PERSONAL DATA" :FORD=1TO5000 :NEXT: 

POKEBO,14:POKEBA,6:POKE646,14 :reni 154 

180 PRINT"{CLR} {6 DOWN} " :PRINTTAB( 10 ) "REMOVE PROGR 

AM DISK": PRINT :rem 207 

190 PRINTTAB(18)"AND":PRINT :rem 150 

200 PRINTTAB( 12) "INSERT DATA DISK" :PRINT:PRINT" 

{4 DOWN}" :rem 30 

210 PRINTTAB(9)"PRESS ' C TO CONTINUE" :rem 235 
220 GETA$:IFA$<>"C"THEN220 :rein 203 

230 POKEBO, 12 :P0KEBA,12 :POKE646,l : PRINT" {CLR} 

{2 DOWN} ":PRINTTAB( 13) "PERSONAL DATA": PRINT 

:reni 97 

240 F$="PERSDATA":PRINT"LOADING "F$; :0PEN8,8,8, "0: 
"+F$+",S,R :rein 168 

250 INPUT#8,YR$,N$,N1$,N2$,N3$,N4$: PRINT" ."; 

:rein 209 

260 FORJ=1TO30:INPUT#8,L$(J) :NEXT:PRINT" ."; 

:rem 134 

270 CLOSES :PRINT:F$="INCDATA":PRINT"LOADING "F$; :0 

PEN8,8,8, "0:"+F$+",S,R :rem 250 

280 INPUT#8,F1,D1,I1:PRINT" ."; :rem 227 

290 F0RJ=1T039:INPUT#8,FW$( J),FW(J) :NEXT:PRINT" ." 

; :F0RJ=1T09 : rem 252 

300 INPUT#8,IT$( J),IT(J) :NEXT:PRINT" ."; :reni 87 
310 F0RJ=1T09:INPUT#8,DI$(J),DI(J) :NEXT:PRINT" ."; 

:CL0SE8 :rein 213 

320 PRINT :F$="EXPDATA": PRINT "LOADING "F$ ; :0PEN8,8, 

8, "0:"+F$+",S,R :reni 33 

330 INPUT#8, El, E2,E3,E4: PRINT" ."; :rem 131 

340 F0RJ=1T059:INPUT#8,NE${J),NE(J) :NEXT:PRINT" ." 

; :rein 49 

350 F0RJ=1T025:INPUT#8,DE$(J),DE(J) :NEXT:PRINT" ." 

; :rem 23 

360 FORJ=lT015:INPUT#8,OE$(J),OE(J):NEXT :reni 185 
370 PRINT" ."; :F0RJ=1T039:INPUT#8,CE$(J),CE(J) :NEX 

T:PRINT" .";:CL0SE8 : rem 120 

380 OPEN15,8,15:INPUT#15,E,E$ :rem 130 

390 CL0SE15 :rem 120 

400 POKEBO , 15 : POKEBA, 15 : P0KE646 , 1 : PRINT " { CLR } 

{DOWN} ":PRINTTAB( 13) "PERSONAL DATA : rem 108 
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410 PRINTTAB{5)"{DOWN}l.{2 SPACES} PERSONAL DATA":P 
RINTTAB(5)" {DOWN}2.{2 SPACES }TYPES OF INCOME 

:rem 77 

420 PRINTTAB(5)"{DOWN}3.{2 SPACES} DISPOSITION OF I 
NCOME :rem 185 

430 PRINTTAB(5)"{DOWN}4.[2 SPACES} FROM WHOM RECEIV 
ED":PRINTTAB(5)" lDOWN}5.{2 SPACES } SOURCES OF F 
UNDS :rem 225 

440 PR1NTTAB(5)"{D0WN}6.{2 SPACES}TYPE OF EXPENSE" 
:PRINTTAB{5)"{DOWN}7 .{2 SPACES } EXPENSE ACCOUNT 
S :rem 94 

450 PRINTTAB(5)"{DOWN}8.{2 SPACES}MAIN MENU"iPRINT 
TAB(9)"{2 DOWN} PRESS DESIRED NUMBER : rem 90 

460 GETA$:IFA$=""THEN460 : rem 87 

470 IFA$<"1"ORA$>"8"THEN460 : rem 201 

480 AA=VAL(A$) :ONAAGOTO600 , 1280 , 1520 , 1770 , 3150 , 297 
0,2180,5190 :rem 231 

490 PRINTTAB(9)"{2 DOWN} 1.(2 SPACES } ENTER/CHANGE D 
ATA" : PRINTTAB ( 9) " {DOWN } 2 . { 2 SPACES }VIEW DATA 

:rem 205 

500 PRINTTAB(9)"{DOWN}3.{2 SPACES } RETURN TO MENU": 
PRINTTAB(9)"{3 DOWN}PRESS DESIRED NUMBER 

:rem 196 

510 GETB$:IFB$=""THEN510 : rem 81 

520 IFB$<"1"ORB$>"3"THEN510 : rem 190 

530 BB=VAL(B$) : RETURN :rem 13 

540 P0KEB0,14:P0KEBA,14jP0KE646,1:PRINT"{CLR} 
{3 DOWN) ":PRINTTAB( 11) "ENTER/CHANGE DATA 

:rem 126 

550 PRINTTAB(ll)"l2 D0WN}1.{2 SPACES } ADD" : PRINTTAB 
(11)" {DOWN}2.{2 SPACES }CORRECT": PRINTTAB (11)" 
{DOWN} 3. {2 SPACES} CHANGE :rem 226 

560 PRINTTAB (11) "{DOWN} 4. {2 SPACES } RETURN TO MENU" 
:PRINTTAB(9)"{2 DOWN}PRESS DESIRED NUMBER 

:rem 227 

570 GETA$:IFA$=""THEN570 srem 91 

580 IFA$<"1"ORA$>"4"THEN570 .-rem 201 

590 AA=VAL(A$) tONAAGOSUB920, 1050, 1170, 400 :RETURN 

:rem 43 

600 POKEBO , 13 :POKEBA, 13 :POKE646 ,0 :PRINT" { CLR} 

{2 DOWN}": PRINTTAB (13) "PERSONAL DATA :rem 122 

610 PRINTTAB(8)"{2 D0WN}1.{2 SPACES } ENTER/CHANGE D 
ATA":PRINTTAB(8)"{DOVJN}2.{2 SPACES}VIEW PERSON 
AL DATA :rem 41 

620 PRINTTAB(8)"{DOWN}3.{2 SPACES} VIEW LIST OF REP 
ORTS":PRINTTAB(8)"{DOWN}4.{2 SPACES } RETURN TO 
{ SPACE }MENU :rem 234 

630 PRINTTAB(9)"{3 DOWN}PRESS DESIRED NUMBER 

:rem 50 

640 GETB$:IFB$=""THEN640 :rem 89 
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650 IFB$<"1"ORB$>"4"THEN640 : rem 199 

660 BB=VAL(B$) :ONBBGOTO690, 760, 3610, 400 : rem 169 
670 PRINT "CLEARING MEMORY . ."; : rem 35 

680 FORJ=1TO60:X$( J)="":X( J)=0:PRINT" .";:NEXT:RET 

URN :rem 185 

690 PRINT"{CLR} {3 DOWN} " :PRINTTAB( 11 ) "PERSONAL DAT 

A"; PRINT srem 16 

700 INPUT "NAME", •N$: INPUT "STREET" ;N1? :rem 252 

710 INPUT"CITY" ;N2$:INPUT"STATE";N3$ :INPUT"ZIP";N4 

$:PRINT"{CLR}{3 DOWN} :rem 132 

720 PRINTTAB( 6) "PERSONAL ACCOUNTING MANAGER": PRINT 

TAB( 18) "FOR": PRINT :rem 92 

730 PRINTTAB ( 20-LEN( N$ ) / 2 ) N$ :PRINT : PRINTTAB ( 11 ) "FO 

R THE YEAR{4 SP ACES } { RVS } { 3 SPACES} {OFF} 

{4 LEFT} :rem 158 

740 PRINTTAB(24)"{UP}"; :INPUTYR$ iGOSUB3340:IFE>19T 

HEN400 :rem 92 

750 GOTO600 :rem 107 

760 PRINT"{CLR} {3 DOWN} ": PRINTTAB (6) "PERSONAL ACCO 

UNTING MANAGER" : rem 231 

770 PRINTTAB (11) "FOR THE YEAR "YR$ :PRINT: PRINTN$ :P 

RINTN1$:PRINTN2$", "N3$ :rem 171 

780 PRINTN4$ :rem 210 

790 PRINT" {2 DOWN}HARD COPY? (Y/N) :rem 49 

800 GETA$:IFA$=""THEN800 :rem 83 

810 IFA$="N"THEN400 :rem 31 

820 IFA$<>"Y"THEN800 :rem 108 

830 0PEN4,4:F0RSP=1T018:PRINT#4,LF$; :NEXT :rem 83 
840 M=27:GOSUB910:PRINT#4,LB$;"PERSONAL ACCOUNTING 
MANAGER" : rem 168 

850 F0RSP=1T018:PRINT#4,LF$; :NEXT:A$=N2$+" "+N3$:M 

=LEN(N$) :6OSUB910 : rem 206 

860 PRINT#4,LB$;N$ :rem 13 

870 M=LEN(N1$) :GOSUB910 :PRINT#4 ,LB? ; Nl$ :M=LEN( A$) : 

GOSUB910:PRINT#4,LB$;A$ :rem 115 

880 M=LEN{N4$) :GOSUB910 :PRINT#4 , LB$ ; N4$ :FORSP=lT08 

:PRINT#4,LF$; :NEXT :rem242 
890 M=4 : GOSUB910 : P RINT#4 , LB$ ; YR$ : F0RSP=1T012 : PRINT 

#4,LF$:NEXT:PRINT#4:CL0SE4 : rem 108 

900 GOTO400 :rem 102 

910 PC=INT(NC-M)/2:LB$=LEFT$(S$,PC) :RETURN :rem 43 
920 POKEBO,5:POKEBA,5:POKE646,l : rem 111 

930 PRINT" {CLR} " :PRINTN$ :PRINTY$ :PRINTTAB ( 16 ) " 

{DOWN}ADD DATA": PRINT :FORJJ=MATON srem 67 

940 IFJJ=NTHENPRINT"LIST IS FULL" : SYS828 :F0RD=1T05 

000: NEXT: NEXT : rem 94 

950 PRINT" {DOWN} ITEM NO. " ; JJ+NNsPRINT : rem 215 

960 INPUTX${JJ) :IFX$(JJ)=""THEN960 :rem 9 

970 IFLEN(X$(JJ))>27THENX$(JJ)=LEFT$(X$(JJ),27) 

:rem 202 
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980 X ( J J ) = JJ : I FX ( J J ) =0 THENPRINT " ERROR " : SYS8 28 : FORD 
=1105000 :NEXT:JJ=N:GOTO1040 : rem 204 

990 MA=MA+1:PRI1JT"{CLR} {6 DOWN} " :PRINTTAB{ 10 ) " 

{D0WN}AN0THER ITEM? (Y/N) : rem 132 

1000 GETA$:IFA$=""THEN1000 : rem 165 

1010 IFA$="N"THENJJ=N:GOTO1040 :rem 11 

1020 IFA$<>"Y"THEN1000 : rem 190 

1030 PRINT "{CLR} :rem 6 

1040 NEXT: RETURN : rem 30 

1050 POKEBO,5:POKEBA,5:POKE646,l : rem 154 

1060 PRINT" {CLR} " :PRINTN$ :PRINTY$ :PRINTTAB( 14 ) " 

{DOWN}CORRECTIONS" : rem 156 

1070 PRINT:PRINT"IF ITEM NO. IS NOT KNOWN PRESS '0 

"': PRINT :rem 213 

1080 INPUT" ITEM /ACCT NO. TO CORRECT" ;X :IFX=0THENRE 

TURN :rem 198 

1 090 FORJ J= ITOMA : I FX=X ( J J ) THENX= J J : J J=MA : NEXT : GOTO 

1110 :rem 31 

1100 NEXTiIFJJ=MA+lTHEN1160 :rem 124 

1110 PRINT: JJ=X I PRINT "CORRECT ITEM/ACCT ";X(JJ):PR 

INT:PRINTX$(JJ) rPRINT : rem 119 

1120 PRINT"RETYPE CORRECTLY: ": PRINT :rem 38 

1130 INPUTX$(JJ):IFX$(JJ)=""THEN1130 :rem 85 

1140 IFLEN(X$(JJ))>27THENX$( JJ)=LEPT$(X$(JJ),27) 

:rem 240 

1150 RETURN :rem 167 

1160 PRINT"NO SUCH ITEM": SYS828 :FORD=1TO5000 :NEXT: 

RETURN :rem 65 

1170 POKEBO,4:POKEBA,4:POKE646,l:PRINT"{CLR}":PRIN 

TN$ :PRINTY$ :PRINTTAB( 16 )" { DOWN} CHANGES: rem 56 
1180 PRINT: PRINT "IF ITEM NO. IS NOT KNOVJN PRESS '0 

•":PRINT :rem 215 

1190 INPUT "ITEM/ACCT NO. TO CHANGE " ;X : I FX=0THENRET 

URN :rem 92 

1200 F0RJJ=1T0MA: IPX=X( JJ) THENX=JJ : JJ=MA:NEXT:GOTO 

1220 :rem 26 

1210 NEXT:IFJJ=MA+1THEN1270 :rem 128 

1220 PRINT:JJ=X:PRINT"CHANGE ITEM/ACCT ";X(JJ):PRI 

NT:PRINTX$(JJ) :PRINT :reml3 
1230 PRINT "TYPE CORRECTLY: :rem 168 

1240 INPUTX$(JJ) :IFX$( JJ)=""THEN1240 :rem 89 

1250 IPLEN( X$ ( JJ) ) > 27THENX$ ( J J )=LEFT$ ( X$ ( J J ) , 27 ) 

:rem 242 

1260 RETURN :rem 169 

1270 PRINT"NO SUCH ITEM" : SYS828 :FORD=1TO5000 :NEXT: 

RETURN :rem 67 

1280 P0KEB0,12 :POKEBA, 12 :P0KE646, 1 :PRINT" {CLR} 

{2 DOWN} ":PRINTTAB( 12) "TYPES OF INC0ME:rem 20 
1290 GOSUB490:ONBBGOTO1300, 1380, 400 :rem 249 

1300 GOSUB670:IFI1=0THENI1=1 :rem 168 
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1310 MA=11jNN=0 :N= 10: Y$= "TYPES OP INCOME: " :F0RJJ=1 
TOIl :rem 10 

1320 X§(JJ)=IT$(JJ) :X(JJ)=IT(JJ) :PRINT" .";:NEXT:G 
OSUB540 :reni 128 

1330 IPA$="2"ORA$="3"THENIT$(JJ)=X$( JJ) :GOTO1350 

:rein 215 

1340 F0RJJ=I1T0MA:IT$(JJ)=X$( JJ) :IT( JJ)=X(JJ)+NN:N 

EXT:I1=MA :rem 158 

1350 F0RJJ=1T0I1 :X$( JJ)=IT$( JJ) :X( JJ)=IT( JJ) :NEXT: 

GOSUB3510 :F0RJJ=1T0I1 : rem 191 

1360 IT$(JJ)=X$(JJ) :IT(JJ)=X( JJ) :NEXT:GOSUB3380:IF 

E>19THEN400 :rem 190 

1370 GOTO1280 :rem 207 

1380 PRINT"{CLR}{3 DOViN} " :POKEBO, 5 :POKEBA, 5 :POKE64 

6,1 :rem 113 

1390 PRINTTAB( 8) "STANDARD TYPES OF INCOME": PRINT 

:rem 251 

1400 P RINTTAB (10) "TYPE "TAB ( 16 ) " INCOME " : PRINT :FORIT 
=1TO10:IFIT$( IT)=""THEN1420 : rem 213 

1410 PRINTTAB(12)IT(IT)TAB(16)IT$(IT) : rem 167 

1420 NEXT: PRINT "{3 D0VJN]HARD COPY? (Y/N) :rem 226 
1430 GETA$:IPA$=""THEN1430 :rem 179 

1440 IPA$="N"THEN400 : rem 79 

1450 IPA$<>"Y"THEN1430 : rem 204 

1460 OPEN4,4:LB?=LEFT$(S$,30) :PRINT#4 ,LB$ ; "STANDAR 
D TYPES OP INCOME" ;LF$ :rem 2 

1470 LB$=IiEPT$(S$,27) :PRINT#4,LB$;"TYPE"; : rem 95 
1480 LB$=LEFT$(S$,10) :PRINT#4 ,LB$ ; "INCOME" ;LP$ 

:rem 135 

1490 FOR1T=1TO10:IFIT$(IT)=""THEN1510 :rem 179 

1500 LB$=LEPT${S$,27) :PRINT#4,LB$ ;IT( IT) ; :LB$=LEFT 

$(S$,8) :PRINT#4,LB$;IT$(IT) : rem 232 

1510 NEXT:P0RSP=1T012 :PRINT#4,LF$ :NEXT:PRINT#4 :CLO 

SE4:GOTO400 :rem 192 

1520 POKEB0,12 :POKEBA, 12 :P0KE646 , 1 :PRINT " {CLR} 

{2 DOWN} ":PRINTTAB( 9) "DISPOSITION OF INCOME 

:rem 167 

1530 GOSUB490:ONBBGOTO1540, 1620, 400 :rem 249 

1540 GOSUB670:IPD1=0THEND1-1 :rem 164 

1550 MA=D1 :NN=0:N=10:Y$="DISPOSITION OP INCOME: ":F 

ORJJ=lTODl :rem 198 

1560 X$( JJ)=DI$(JJ) :X(JJ)=DI(JJ) :PRINT" .";:NEXT:G 

OSUB540 :rem 102 

1570 IFA$="2"ORA$="3"THENDI$(JJ)=X$(JJ) :GOTO1590 

:rem 211 

1580 P0RJJ=D1T0MA:DI$( JJ)=X$(JJ) :DI( JJ)=X( JJ)+NN:N 
EXT:D1=MA :rem 122 

1590 F0RJJ=1T0D1 :X$( JJ)=DI$( JJ) :X( JJ)=DI( JJ) :NEXT: 
GOSUB3510:PORJJ=1TOD1 : rem 155 
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1600 DI$( JJ)=X$( JJ) :DI{JJ)=X( JJ) :NEXT:GOSUB3380:IF 
E>19THEN400 :rem 155 

1610 GOTO1520 :rem 201 

1620 PRINT"{CLR} {3 DOWN } " : POKEBO, 5 :POKEBA, 5 :P0KE64 
6,1 :rein 110 

1630 PRINTTAB (8) "DISPOSITION OF INCOME": PRINT 

:rein 103 

1640 PRINT" #"TAB(4)"DIS"TAB(16)"INC0ME":PRINT:F0R 
D1=1TO9:IFDI$(DI)=""THEN1660 :rem 97 

1650 DK$(DI)=LEFT$(DI$(DI),3) :PRINTDI( DI)TAB( 4) DK$ 
(DI)TAB(13)DI$(DI) :reni 98 

1660 NEXTiPRINT"{3 D0WN}HARD COPY? (Y/N) : rem 232 
1670 GETA$:IFA$=""THEN1670 :rem 191 

1680 IFA$='"N"THEN400 :rem 85 

1690 IFA$<>"Y"THEN1670 : rem 216 

1700 OPEN4,4:LB$=LEFT$(S$,30) :PRINT#4 ,LB$ ; "DISPOSI 
TION OF INCOME ";LF$ : rem 110 

1710 LB$=LEFT$(S$,27) :PRINT#4,LB$;"DIS"; :rem 250 
1720 LB$=IiEFT§(S$,ll) iPRINT#4 , LB? ; "INCOME" ;LF$ 

:rem 133 

1730 FORDI=1TO9:IFDI$(DI)=""THEN1760 : rem 95 

1740 DK$(DI)=LEFT$(DI$(DI) ,3) tLB$=LEFT$(S$,27) :PRI 

NT#4,LB$;DK$(DI) ; : rem 

1750 LB$=LEFT$(S$,8) iPRINT#4,LB$;DI${DI) : rem 253 
1760 NEXT:F0RSP=1T012:PRINT#4,LF$:NEXT:PRINT#4:CL0 

SE4:GOTO400 : rem 199 

1 7 70 POKEBO , 9 1 POKEBA , 9 : P0KE646 , 1 : P RINT " { CLR } 

{2 DOWN} ":PRINTTAB( 11) "FROM WHOM RECEIVED 

: rem 148 

1780 GOSUB490:ONBBGOTO1790, 1910, 400 :rem 9 

1790 GOSUB670:IFF1=0THENF1=1 : rem 175 

1800 MA=F1 :NN=0:N=40iY$="FROM WHOM RECEIVED: " :FORJ 

J=1T0F1 :rem 220 

1810 X$(JJ)=FW$(JJ) :X(JJ)=FW(JJ) :PRINT" .";:NEXT:G 

OSUB540 :rem 132 

1820 IFA$="2"ORA$="3"THENFW$(JJ)=X$(JJ) :GOTO1860 

:rem 225 

1830 F0RJJ=F1T0MA:IFX( JJ)=0THEN1850 :rem 156 

1840 EW$( JJ)=X$( JJ) :FW(JJ)=X( JJ)+NN :rem 14 

1850 NEXT:F1=MA : rem 137 

1860 P0RJJ=1T0F1:X$(JJ)=FW$( JJ) :X( JJ)=FV^( JJ) :NEXT: 

GOSUB3510 :F0RJJ=1T0F1 :rem 191 

1870 IFX( JJ)=0THEN1890 : rem 10 

1880 FW$(JJ)=X$(JJ) :FW(JJ)=X(JJ) :rem 75 

1890 NEXT:GOSUB3380:IFE>19THEN400 :rem 18 

1900 GOTO1770 :rem 210 

1910 POKEBO , 5 :POKEBA, 5 :POKE646 , 1 :GOSUB2020 :F0RFW=1 

TO39:IFFW$(PW)=""THEN1930 :rem 77 
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1920 PRI1JTTAB(5)PW(FW)" {LEFT } "L$ ( 30) TAB (12 )FW$ (FW) 
:LIr=LL+l:IFLL=>KKTHElI1940 :rem 242 

1930 l!JEXT:IPFW=40THEN1970 : rem 19 

1940 PRINT :PRINTTAB( 9) "PRESS ' C TO CONTINUE 

:rem 203 

1950 GETA$ :IFA$<>"C"THEN1950 :rein 65 

I960 GOSUB2020:GOTO1930 :rein 84 

1970 PRINT:PRINT"{2 DOWNlHARD COPY? (Y/N) : rem 41 
1980 GETA$:IFA$=""THEN1980 :rem 199 

1990 IFA$="N"THEN400 : rem 89 

2000 IFA$<>"Y"THEN1980 : rem 206 

2010 GOTO2040 :rem 194 

2020 PRINT"{CLR}{3 DOVTN}": PRINT "STANDARD LIST OF F 

ROM WHOM INCOME IS :rem 44 

2030 PRINT"RECEIVED.{2 SPACES }SPELL EXACTLY: ":PRIN 

T:LL=0:RETURN jrem 255 

2040 0PEN4, 4 jPRINT#4,LA$; "STANDARD LIST OF FROM WH 

OM INCOME IS RECEIVED. irem 65 

2050 PRINT#4,LA$;" SPELL EXACTLY: " ;LF$ |P0RFW=1T039 : 

A$=STR$(FW(FW))+L$(30) trem 43 

2060 IFFW$(FW)b""THEN2090 trem 129 

2070 RA$=!LEFT$(S$,20-LEN(A$)) :PiRINT#4,RA$;A$; 

:rem 

2080 LB$=LEFT$(S$,7) :PRINT#4,LB$;FW$(FW) :rem 25 
2090 NEXT:F0RSP=1T012 :PRINT#4,LP$ :NEXT:PRINT#4 :CL0 
SE4:GOTO400 trem 196 

2100 GOSUB670tIFE4s0THENE4=l :rem 165 

2110 MA=E4:NN»100tiN39:Y$=L$(28) :F0RJJ»1T0E4 

:rem 59 

2120 X$(JJ)=CE$(JJ) :X(JJ)=CE(JJ) :PRINT" .";:NEXT:G 
OSUB540 :rem 85 

2130 IFA$="2"ORA$="3"THENCE$( JJ)=X$( JJ) :GOTO2150 

:rem 192 

2140 F0RJJ=E4T0MA:CE$( JJ)=X$( JJ) :CE( JJ)=X( JJ)+NN:N 

EXT:E4=MA :rem 113 

2150 F0RJJ=1T0E4:X$(JJ)=CE$(JJ) :X( JJ)=CE( JJ) :NEXT: 

GOSUB3510:FORJJ=1TOE4 :rem 146 

2160 CE$(JJ)=X$( JJ) :CE( JJ)=X( JJ) :NEXT:GOSUB3440:IF 

E>19THEN400 : rem 144 

2170 GOTO2180 : rem 206 

2180 POKEBO ,12 :POKEBA, 12 :P0KE646 , 1 :PRINT " {CLR } 

{2 DOWN} ":PRINTTAB( 12) "EXPENSE ACCOUNTS 

:rem 167 

2190 6OSUB490:ONBBGOTO2200, 2510, 400 :rem 245 

2200 POKEBO, 12 :POKEBA, 12 :P0KE646,1 :PRINT"{CLR} 
{2 DOWN} ":PRINTTAB( 12) "ENTER/CHANGE DATA 

rrem 149 

2210 PRINTTAB(9)"{2 D0WN}1.{2 SPACES }NOT DEDUCTIBL 
E":PRINTTAB(9)?" {D0\*N}2.{2 SPACES }DEDUCTIBLE 

:rem 206 
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2220 PRINTTAB(9)"{DOWN}3.{2 SPACES }OTHER" :PRINTTAB 
(9)" {DOWN}4-{2 SPACES }CREDITORS :rem88 

2230 PRINTTAB{9)"{DOWN}5 .{2 SPACES }RETURN TO MENU" 
:PRINTTAB(9)" {3 D0WN}PRESS DESIRED NUMBER 

:rein 248 

2240 GETB$:IPB$=""THEN2240 :rera 181 

2250 IFB$<"1"ORB$>"5"THEN2240 :rein 36 

2260 B&=VAL(B$) :ONBBGOTO2270, 2350, 2430, 2100, 400 

:rein 30 

2270 GOSUB670:IFE1=0THENE1=1 :rem 167 

2280 MA=E1:NN=0:N=59:Y$=L$(25) :FORJJ=lTOElsrem 219 
2290 X$( JJ)=NE$(JJ) :X( JJ)=NE(JJ) :PRINT" .";:NEXT:G 
OSUB540 :rein 115 

2300 IFA$="2"ORA$="3"THENNE$( JJ)=X$(JJ) :GOTO2320 

trem 201 

2310 F0RJJ=E1T0MA:NE$( JJ)=X$( JJ) :NE( JJ)=X( JJ)+NN:N 

EXT:E1=MA :rein 128 

2320 F0RJJ=1T0E1:X$(JJ)=NE$(JJ) :X( JJ)=NE( JJ) :NEXT: 

GOSUB3510:FORJJ=1TOE1 : rem 161 

2330 NE$( JJ)=X$( JJ) :NE( JJ)=X( JJ) :NEXT :GOSUB3440 : IF 

E>19THEN400 :rem 165 

2340 GOTO2180 trem 205 

2350 GOSUB670:IFE2=0THENE2=1 :rem 168 

2360 MA=E2:NN=59iN=25:Y$=L$(26) :F0RJJ=lT0E2srein 20 
2370 X$( JJ)=DE$( JJ) :X( JJ)=DE( JJ) :PRINT" .";:NEXT:G 

OSUB540 :rem 94 

2380 IFA$="2"ORA$="3"THENDE$( JJ)=X$( JJ) :GOTO2400 

:rem 198 

2390 F0RJJ=E2T0MA:DE$( JJ)=X$( JJ) :DE( JJ)=X( JJ)+NN:N 

EXT:E2=MA : rem 118 

2400 F0RJJ=1T0E2 :X$( JJ)=DE$(JJ) :X( JJ)=DE{ JJ) :NEXT: 

GOSUB3510:FORJJ=1TOE2 trem 142 

2410 DE$( JJ)=X$( JJ) :DE(JJ)=X( JJ) :NEXT:GOSUB3440 :IP 

EM9THEN400 trem 144 

2420 GOTO2180 trem 204 

2430 GOSUB670fIFE3=0THENE3=l trem 169 

2440 MA=E3tNN=84fN=15tY$=L$(27) tF0RJJ=lT0E3trem 19 
2450 X$(JJ)=OE$(JJ) :X( JJ)=OE( JJ) tPRINT" .".-tNEXTtG 

OSUB540 trem 115 

2460 IFA$="2"ORA$="3"THENOE$( JJ)=X$( JJ) :GOTO2480 

trem 216 

2470 FORJJ=E3TOMAtOE$( JJ)=X$(JJ) tOE( JJ)=X( JJ)+NNtN 

EXTtE3=MA trem 141 

2480 FORJJ=1TOE3 tX$( JJ)=OE$( JJ) tX( JJ)=OE( JJ) tNEXTt 

GOSUB3510tFORJJ=lTOE3 trem 174 

2490 0E$( JJ)=X$(JJ) :OE(JJ)=X(JJ) tNEXTtGOSUB3440tIF 

E>19THEN400 trem 174 

2500 GOTO2180 trem 203 

2510 GOSU B2 6 70 t P RI NTTAB ( 10 ) " 1 . "TAB ( 1 3 ) L$ ( 2 5 ) t LL= LL 

+1 tFOREX=lT059 trem 254 
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2520 IFNE$(EX)=""THEN2540 : rem 120 

2530 PRINTTAB(8)NE(EX)TAB(13)NE$(EX) :LL=LL+1 :IFLL= 
>KKTHENGOSUB2650 : rem 90 

2540 NEXT:PRINT:LL=LL+1 :IFLL=>KKTHENGOSUB2650 

:rem 194 

2550 PRINTTAB(10)"2. "TAB(13)L$(26) :LIi=LL+l iFOREX=l 
TO25:IPDE$(EX)=""THEN2570 :rem 86 

2560 PRINTTAB(8)DE(EX)TAB(13)DE$(EX) : L1>=LI>1 : I FLL= 
>14THENGOSUB2650 :rem 24 

2570 NEXT:PRINT:LIr=LIyfl :IFLL=>KKTHENGOSUB2650 

:rem 197 

2580 PRINTTAB(10)"3. "TAB( 1 3) L$( 27) :LL=LIi+l :F0REX=1 
T015 :IPOE$(EX)=""THEN2600 :rem 95 

2590 PRINTTAB(8)OE(EX)TAB(13)OE$(EX) :LL=LI>1 :IFLL= 
>KKTHENGOSUB2650 :rem 98 

2600 NEXT:PRINTzLL=LL+l :IFLL=>KKTHENGOSUB2650 

:rem 191 

2610 PRINTTAB(10)"4. "TAB( 13) L?( 28) :LL=LL+1 :F0REX=1 
TO39:IFEX=40THEN2690 : rem 129 

2620 IPCE$(EX)=""THEN2640 :rem 111 

2630 PRINTTAB(7)CE(EX)TAB(13)CE$(EX) :LL=LL+1 :IFLL= 
>KKTHEN6OSUB2650 :rem 68 

2640 NEXT:IFEX=40THEN2690 : rem 18 

2650 PRINT:PRINTTAB(9)"PRESS 'C TO CONTINUE 

:rem 202 

2660 GETA$:IFA$<>"C"THEN2660 : rem 63 

2670 PRINT"{CLR}{3 DOVJN }": PRINTTAB (8) "STANDARD ACC 
OUNT NUMBERS": PRINT :LL=0 : rem 81 

2 6 80 PRI NTTAB ( 8 ) " ACT "TAB (13)"EXPENSE":PRINT: RETURN 

:rem 162 

2690 PRINT" {2 D0WN}HARD COPY? (Y/N) ; rem 98 

2700 GETA? :IFA$=""THEN2700 : rem. 181 

2710 IFA$="N"THEN400 :rem 80 

2720 IFA$<>"Y"THEN2700 :rem 206 

2730 OPEN4,4:LB$=LEFT$(S$,29) :PRINT#4 ,LB$ ; "STANDAR 

D ACCOUNT NUMBER" ;LF$ :rem 252 

2740 PRINT#4,LA$;"ACT NO. " ; :LB$=LEFT$( S$ , 5) :PRINT# 

4, LB$; "EXPENSE ";LF$ : rem 16 

2750 PRINT#4,LA$;"1.{7 SPACES }"; L$( 25) :F0REX=1T059 

:IFNE$(EX)=""THEN2780 : rem 252 

2760 A$=STR$(NE(EX)) :RA$=LEFT$( S$ , 15-LEN(A$) ) :PRIN 

T#4,RA$;NE(EX) ; :rem241 
2770 LB?=LEFT$(S$,8) :PRINT#4,LB$;NE$(EX) : rem 22 
2780 NEXT:PRINT#4:PRINT#4,LA?;"2.{7 SPACES} " ;L$ ( 26 

) :rem 108 

2790 BOREX=1TO25:IFDE$(EX)=""THEN2820 : rem 174 

2800 A$=STR$(DE( EX) ) : RA$=IiEFT$( S$ , 15-LEN(A$) ) :PRIN 

T#4,RA$;DE(EX); -rem 216 

2810 LB§=LEPT$(SS,8) :PRINT#4,LB$;DE$(EX) :rem 7 
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2820 NEXT:PRINT#4:PRINT#4,LA$;"3.{7 SPACES} " ;L$ ( 27 

) :rem 105 

2830 POREX=1TO15:IFOE$(EX)=""THEN2860 : rem 183 

2840 A$=STR$(OE(EX)) :RA$=LEFT$(S$ ,15-LEN(A$) ) :PRIN 

T#4,RA$;0E(EX) ; :rem242 
2850 LB$=LEFT$(S$,8) iPRINT#4,LB$;0E$(EX) :rem 22 
2860 NEXT:PRINT#4:PRINT#4,LA$;"4.{7 SPACES }" ;L$ ( 28 

) :rein 111 

2870 FOREX=1TO39:IFCE$(EX)=""THEN2900 : rem 176 

2880 A$=STR$(CE(EX)) :RA$=LEFT$(S$,15-LEN(A$)) :PRIN 

T#4,RA$;CE(EX) ; irem222 
2890 LB$=LEFT$(S$,8) :PRINT#4,LB$;CE$(EX) : rem 14 
2900 NEXT:PRINT#4 :rem 40 

2910 PRINT#4,LA$;"N0TE THAT ACCOUNT NUMBERS LESS T 

HAN 60 ARE NOT"; :rem 104 

2920 LB$=LEFT$(S$,1) :PRINT#4,LB$;"TAX DEDUCTIBLE. 

:rem 121 

2930 PRINT#4,LA$; "ACCOUNT NUMBERS BETWEEN 60 AND 8 

4 ARE, AND"; : rem 248 

2940 LB$=LEFT$(S$,1) :PRINT#4,LB$; "THOSE ABOVE 85 A 

RE :rem 192 

2950 PRINT#4,LA$ ; "UNDETERMINED. " :rem 194 

2960 F0RSP=1T012 :PRINT#4 ,LF$ :NEXT:PRINT#4 :CL0SE4 :G 

OTO400 :rem 81 

2970 POKEBO,10:POKEBA,10:POKE646,1 : rem 254 

2980 PRINT"{CLRl{2 DOWN} " :PRINTTAB( 8) "STANDARD TYP 

ES OF EXPENSE" : rem 87 

2990 PRINT iPRlNTTAB ( 8 ) "TYPE "TAB ( 16 ) "EXPENSE " : PRINT 

:rem 192 

3000 PRINTTAB(10)"1"TAB(14)"NOT INCOME TAX DEDUCTI 
BLE :rem 107 

3010 PRINTTAB( 10)" 2"TAB( 14) "INCOME TAX DEDUCTIBLE" 
:PRINTTAB(10)"3"TAB(14)"OTHER : rem 150 

3 020 P RINTTAB ( 1 ) " 4 "TAB (14) "CREDITORS " : P RINT : P RINT 
:PRINT"{DO\JN}HARD COPY? (Y/N) : rem 27 

3030 GETA$:IFA$=""THEN3030 : rem 175 

3040 IFA$="N"THEN400 : rem 77 

3050 IFA$<>"Y"THEN3030 :rem 200 

3060 OPEN4,4:LB$=LEFT$(S$,33) :PRINT#4,LB$;"TYPE OF 
EXPENSE" ;LF$ :rem 188 

3070 LB$=LEFT$(S$,27) :PRINT#4,LB$;"TYPE"; :rem 93 
3080 LB$=LEFT${S$ ,10) :PRINT#4,LB$ ; "EXPENSE" ;LF$ 

: rem 226 

3090 LB?=LEFT$(S$,20) :PRINT#4,LB$;"1"; :rem 71 

3100 Z$="NOT INCOME TAX DEDUCTIBLE" :GOSUB3140 :PRIN 

T#4,LB$;"2"; : rem 155 

3110 Z$="INCOME TAX DEDUCTIBLE":GOSUB3140:PRINT#4 , 

LB$;"3"; .-rem 172 

3120 Z$="OTHER OR UNSURE":GOSUB3140:PRINT#4 ,LB$ ;"4 

"; :Z$="CREDITORS":GOSUB3140 :rem 160 
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3130 F0RSP=1T012 :PRINT#4 ,IiF$ :NEXT:PRINT#4 :CL0SE4 :G 
OTO400 :rem 71 

3140 LC$=LEFT?(S$,5) :PRINT#4,LC$;Z$:RETURN : rem 
3150 PRINT"{CLRl{2 DOWN} " :POKEBO ,7 :POKEBA,7 :POKE64 
6,0 :rem 96 

3160 PRINTTAB( 12) "SOURCES OF FUNDS ": PRINT :rem 38 
3170 PRINT"WHEN LISTING AN EXPENSE, YOU V7ILL BE":P 
RINT "ASKED: ":PRINT :rem235 
3180 PRINTTAB(9)"CHECK NO. OR CASH (CAS) ?": PRINT 

:rem 21 

3190 PRINT "IF PAYMENT IS BY CHECK TYPE CHECK NO., 

:rem 85 

3200 PRINT "IF BY CASH TYPE 'CAS '.{2 SPACES )CREDIT 

{ SPACE }CARD :rein 39 

3210 PRINT" PURCHASES ARE NOT PAYMENTS AND ARE NOT 

:rein 249 

3220 PRINT "ENTERED. {2 SPACES}SEE YOUR MANUAL. ":PRI 

NT: PRINT: PRINT "HARD COPY? (Y/N) : rem 28 

3230 GETA$:IFA$=""THEN3230 :rem 179 

3240 IFA$="N"THEN400 . :rem 79 

3250 IFA$<>"Y"THEN3230 :rem 204 

3260 0PEN4,4 :LB$=LEFT$ ( S$ , 32) :PRINT#4 ,LB$ ; "SOURCES 
OF FUNDS" ;LF$ :rem 7 

3270 PRINT#4,LA$ j"WHEN LISTING AN EXPENSE, YOU VJIL 

L BE ASKED: ";LF$ :rem 122 

3280 LB$=LEFT$(S$,28) :PRINT#4,LB$;"CHECK NO. OR CA 

SH (CAS)?";LF$ :rem 37 

3290 Z$="IF PAYMENT IS BY CHECK THEN TYPE CHCK NO. 

, AND 'CAS' IF BY" :GOSUB3330 : rem 53 

3300 Z$="CASH.{2 SPACES ICREDIT CARD PURCHASES ARE 

{ SPACE }NOT PAYMENTS /VND ARE NOT " :GOSUB3330 

: rem 238 

3310 Z$="ENTERED. ":GOSUB3330 : rem 126 

3320 P0RSP=1T012 :PRINT#4 ,LF$ :NEXT:PRINT#4 :CL0SE4 :G 

OTO400 :rem 72 

3330 PRINT#4,LA$;Z$: RETURN :rem 93 

3340 PRINTjPRINT "SAVING . " ; :F$="PERSDATA" :0PEN15 ,8 

,15:PRINT#15,"S0:"+F$:CLOSE15 :rem 252 

3350 OPEN8,8,8,"0:"+F$+",S,W :rem 187 

3360 PRINT#8,YR$", "N$", "Nl$", "N2$", "N3$", "N4?CHR$( 

13)iPRINT" . "; :FORJ=1TO30 : rem 236 

3370 PRINT#8,L$( J) ", ":NEXT:PRINT" . " ; :CL0SE8 :GOSUB 

3580: RETURN :rem 213 

3380 PRINT: PRINT "SAVING . " ; :F$="INCDATA" :0PEN15 ,8 , 

15 :PRINT#15, "S0:"+F$ :CL0SE15 :rem 160 

3390 0PEN8,8,8, "0:"+F$+",S,W":PRINT#8,Fl", "Dl", "II 

CHR$(13) rPRINT" ."; : rem 159 

3400 F0RJ=1T039 :rem 117 

3410 PRINT#8,FW$( J)", "FW( J)", ":NEXTiPRINT" ."; 

:rem 61 
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3420 F0RJ=1T09:PRINT#8,IT$( J)", "IT( J)", ":NEXT 

:rem 127 

3430 PRINT" ."; sF0RJ=lT09:PRINT#8,DI$( J)", "DI( J)", 

":NEXT:PRINT" ."; : rem 72 

3435 CLOSE 8 :GOSUB 3580:RETURN : rem 33 

3440 PRINT: PRINT "SAVING . "; :F$="EXPDATA":OPEN].5,8, 

15iPRINT#15, "S0:"+F$:CIiOSEI5 :reni 176 

3450 OPEN8,8,8, "0: "+F$+", S,W":PRINT#8,E1", "E2", "E3 

", ",E4CHR$(13) iPRINT" ."; : rem 176 

3460 FORJ=lT059:PRINT#a,NE$( J)", "NE(J)", ":NEXT:PRI 

NT" ."; :F0RJ=1T025 : rem 251 

3470 PRINT#8,DE$(J)", "DE( J)", ":NEXT:PRINT" ."; 

:rem 27 

3480 F0RJ=1T015:PRINT#8,0E$(J)", "0E( J)", ":NEXT 

: rem 160 

3490 PRINT" ."; :F0RJ=1T039:PRINT#8,CE$( J)", "CE( J)" 
, ":NEXT: PRINT" .";:CL0SE8 : rem 95 

3500 GOSUB3580: RETURN : rem 50 

3510 PRINT: PRINT "SORTING."; :IFMA<=2THEN3570 

:rem 240 

3520 P0RJJ=lT0MA-2 :F0RK=JJ+1T0MA-1 :rem 107 

3530 IFX$(K)>X$(JJ)THEN3560 :rem 14 

3540 SM$=X$(K) :SM=X(K) iX$(K)=X$( JJ) :X(K)=X{ JJ) 

:rem 136 

3550 X$(JJ)=SM$:X(JJ)=SM : rem 131 

3560 NEXTsPRINT" .";:NEXT s rem 250 

3570 RETURN : rem 175 

3580 E=0:OPEN15,8,15:INPUT#15,E,E? : rem 163 

3590 IPE>19THENPRINT:PRINTE$ : SYS828 :FORD=1TO5000 :N 

EXT :rem 200 

3600 CliOSEl 5: RETURN :rem 191 

3610 PRINT" {CLR}":PRINTN$:PRINTYR$:PRINT :rem 196 
3620 PRINT :PRINTTAB( 12) "LIST OF REPORTS " :PRINTTAB ( 

12)"il5 T§" :rem 17 
3630 PRINT "FINANCIAL CONDITION: " :PRINT : rem 202 
3640 PRINTTAB( 3) "BALANCE SHEET 

{3 SPACES} 10 :rem 53 

3650 PRINTTAB( 3) "ACCOUNT BALANCES (1 JAN). . . . 

{3 SPACES} 20 :rem 147 
3660 PRINTTAB( 3) "CURRENT BALANCES. 

{3 SPACES} 21 :rem 8 
3670 PRINTTAB(3)"VALUE HOUSEHOLD GOODS 

{3 SPACES}24 :rem 202 
3680 PRINTTAB(3)"VALUE ALL PROPERTY 

13 SPACES}25 :rem 95 

3690 PRINTTAB( 3) "GAIN/LOSS SUMMARY (STOCKS). . . 

{3 SPACES} 30 :rem 174 
3700 PRINTTAB( 3) "UNPAID BILLS 

{3 SPACES } 40 ":PRINT : rem 36 

3710 PRINT"RESULTS FOR THE YEAR:":PRINT :rem 200 
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3720 PRINTTAB(3)"PLANNED INCOME 

{2 SPACES} 110 :rem 195 
3730 PRINTTAB( 3) "PLANNED EXPENDITURES 

{2 SPACES} 120 :rem 32 
3740 PRINTTAB( 3) "INCOME FOR YEAR 

{2 SPACES} 130 trem 175 

3750 PRINTTAB( 3) "INVESTMENTS INCOME SUMMARY. . . 

{2 SPACES} 140 :rem 65 

3760 PRINT:PRINTTAB( 9)"PRESS ' C TO CONTINUE " :GOSU 

B5160 :rem 117 
3770 PRINTTAB( 3) "EXPENSE FOR YEAR 

{2 SPACES} 150 :rera 17 

3780 PRINTTAB( 3) "STATEMENT OF INCOME & EXPENSE . 

{2 SPACES} 160 :rem 228 

3790 PRINT: PRINT "RESULTS BY MONTH (CONSISTS OF THE 
FOL- trem 190 

3800 PRINT "LOWING REPORTS FOR EACH MONTH: 

{2 SPACES} PLANNED : rem 51 

3810 PRINT "INCOME VS. ACTUAL, PLANNED EXPENDITURES 

:rein 149 

3820 PRINT"VS. ACTUAL, INCOME, EXPENSE, AND STATE- 

:reni 229 

3830 PRINT "MENT OF INCOME & EXPENSE): :rem 162 

3840 PRINT :PRINTTAB{ 3) "JANUARY 

. .{2 SPACES} 210 :rem 117 
3850 PRINTTAB( 3) "FEBRUARY 

{2 SPACES} 220 :rein 246 
3860 PRINTTAB(3)"MARCH 

{2 SPACES} 230 :rem 49 
3870 PRINTTAB(3)"APRIL 

{2 SPACES} 2 40 :rem 64 
3880 PRINTTAB(3)"MAY 

{2 SPACES} 250 :reni 223 
3890 PRINTTAB(3)"JUNE 

{2 SPACES} 260 :rem 44 
3900 PRINTTAB(3)"JULY 

(2 SPACES} 2 70 :rem 55 
3910 PRINTTAB( 3) "AUGUST 

{2 SPACES} 280 :rem 160 
3920 PRINTTAB (3) "SEPTEMBER 

{2 SPACES} 290 :reni 20 
3930 PRINTTAB (3) "OCTOBER . . 

{2 SPACES} 300 :reni 162 
3940 PRINTTAB (3) "NOVEMBER 

{2 SPACES} 310 :rem 244 
3950 PRINTTAB (3) "DECEMBER 

{2 SPACES} 320 :rem 207 

3960 PRINT: PRINTTAB (9) "PRESS ' C TO CONTINUE ":GOSU 

B5160 :rein 119 

3970 PRINT "SUPPORTING STATEMENTS: ":PRI NT :rem 200 
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3980 PRINTTAB( 3) "ACCOUNT BALANCES BY DIS CATEGORY 



{SPACE} 510 :rem 147 

3990 PRINTTAB( 3) "INCOME FOR YEAR BY TYPE .... 

{2 SPACES} 520 :reni 222 

4000 PRINTTAB( 3) "EXPENSE FOR YEAR BY TYPE. . . . 

{2 SPACES} :rem 147 

4010 PRINTTAB(6)"N0T DEDUCTIBLE 

{2 SPACES} 53 2 :rem 116 

4020 PRINTTAB( 6) "DEDUCTIBLE 

{2 SPACES} 534 :rem 226 

4030 PRINTTAB{6)"0THER 

{2 SPACES} 536 J rem 28 

4040 PRINTTAB ( 6 ) "CREDITORS 

{2 SPACES} 538 :rem 240 

4050 PRINTTAB( 3) "MINIMUM REQUIRED BALANCE. . . 

{2 SPACES} 550 :rem 136 

4060 PRINTTAB( 3) "INVESTMENTS 

{2 SPACES} :rem 

4070 PRINTTAB(6)"B0NDS 

{2 SPACES} 600 :rein 12 

4080 PRINTTAB( 6) "STOCKS 

{2 SPACES} 650 :rem 69 

4090 PRINTTAB(6)"0TMER 

{2 SPACES} 700 :rem 27 

4100 PRINTTAB( 3) "SUMMARY OF ADJUSTMENTS 

[2 SPACES} 800 :rem 98 

4110 PRINTTAB( 3) "ADJUSTMENTS 

{2 SPACES} 810 trem 135 

4120 PRINTTAB{ 3) "SUMMARY OF TRANSFERS 

{2 SPACES} 900 :reni 249 

4130 PRINTTAB( 3) "TRANSFERS 

{2 SPACES} 910 trem 30 

4140 PRINTTAB(3)"BANK STATEMENTS 1 

000 trem 40 

4150 PRINTTAB( 3) "PROPERTY LISTS AND SUMMARIES. . 

{2 SPACES} :rem 205 

4160 PRINTTAB(6)"REAL ESTATE 2000 

:reni 34 

4170 PRINT:PRINTTAB( 9)"PRESS ' C TO CONTINUE " :GOSU 
B5160 :rein 113 

4180 PRINTTAB( 6) "HOUSEHOLD GOODS 

:rein 67 

4190 PRINTTAB( 9) "LIVING ROOM 2100 

:reni 233 

4200 PRINTTAB( 9) "DINING ROOM 2200 

:rem 210 

4210 PRINTTAB(9)"KITCHEN 2300 

:rem 64 

4220 PRINTTAB(9)"BATHR00M(S) 2400 

:rein 224 
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4230 PRINTTAB( 9) "MASTER BEDROOM 2500 

:reni 136 

4240 PRINTTAB( 9) "BEDROOM NO. 2 2600 

:rem 187 

4250 PRIliITTAB( 9) "BEDROOM NO. 3 2700 

:rem 190 

4260 PRINTTAB( 9) "ATTIC 2800 

trem 231 

4270 PRINTTAB{ 9) "CELLAR/GARAGE /SHED. . . . 2900 

:rem 60 

4280 PRINTTAB( 6) "APPLIANCES 3000 

:rein 28 

4290 PRINTTAB( 6) "AUTOMOBILES 4000 

:rem 130 

4300 PRINTTAB(6)"PERS0NAL ITEMS 5000 

" :reni 227 

4310 PRINT:PRINT"HARD COPY? (Y/N) : rem 254 

4320 GETA? :IFA$=""THEN4320 : rem 181 

4330 IFA$="N"THEN400 : rem 80 

4340 IFA$<>"Y"THEN4320 : rem 206 

4350 OPEN4,4:PRINT#4,CHR$(27);CHR$(56) :PRINT#4,LA$ 

;N$ :PRINT#4,LA$;YR$;LP$ : rem 45 

4360 LB$=LEFT$(S$ ,32) : rem 100 

4370 PRINT#4,LB$;"LIST OF REPORTS " :PRINT#4,LB$ ; " 

B12 T3":PRINT#4:CLOSE4 :rem 48 

4380 PRINT"{CLR} {6 DOWN} " :PRINTCHR$( 14) :PRINTTAB( 1 

6)" PRINTING" :0PEN4, 4,7 :rem 255 

4390 PRINT#4 ,LA$ ; " FINANCIAL { SHI FT- SPACE ICONDITIONi 

" ; LF$ : LB$=LEFT$ ( S$ , 1 5 ) : rem 217 
4400 PRINT#4, LB?; "BALANCE SHEET 

{SPACE} {3 SPACES} 10 :rem 181 

4410 PRINT#4,LB$ ;" ACCOUNT BALANCES (1 JAN). . . . 



4420 PRINT#4, LB? ; "CURRENT BALANCES 



{SPACE} {3 SPACES} 21 :rem 136 

4430 PRINT#4, LB?; "VALUE HOUSEHOLD GOOD? 

{SPACE} {3 SPACES} 24 : rem 202 

4440 PRINT#4, LB?; "VALUE ALL PROPERTY 

{SPACE} {3 SPACES}25 :rem 223 

4450 PRINT#4, LB?; "GAIN/LOSS SUMMARY (STOCKS). . . 

{SPACE} {3 SPACES} 30 :rem 46 

4460 PRINT#4, LB?; "UNPAID BILLS 

{SPACE} {3 SPACES } 40" ;LF? 

:rem 215 

4470 PRINT#4 ,LA$ ; " RESULTS { SHIFT- SPACE } FOR 

{ SHIFr-SPACE }THETshTfT- SPACE } yearT ^lf? 

:rem 197 

4480 PRINT#4, LB?; "PLANNED ^NCOME 

{SPACE} {2 SPACES} 110 :rem 76 
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4490 PRINT#4,LB$;" PLANNED EXPENDITURES 

{SPACE} {2 SPACES 1120 :rem 169 

4500 PRINT#4,LB$;"I^NC0ME FOR YEAR 

{SPACE} {2 SPACES} 130 : rem 47 

4510 PRINT#4,LB$;"I^NVESTMENTS ^NCOME SUMMARY. . . 

{SPACE} {2 SPACES} 140 :rem 65 

4520 PRINT#4, LB? ; "EXPENSE FOR YEAR 

{SPACE} {2 SPACES 1150 : rem 144 

4530 PRINT#4,LB$; "STATEMENT OF ^NCOME & EXPENSE . 

{SPACE} {2 SPACES} 160'^;LF$ 

:rein 246 

4540 PRINT*4 ,LA$ ; " RESULTS { SHIFT-SPACE }BY 

{ SHIFT-SPACE } MONTir TCONSISTS OF THE FOLLOWING 
REPORTS FOR EACH :rem 106 

4550 PRINT#4,LA$;"M0NTH: {2 SPACES } PLANNED INCOME V 

S. ACTUAL, PLANNED EXPENDITURES VS. : rem 31 
4560 PRINT#4, LA?;" ACTUAL, jCNCOME, EXPENSE, AND STA 

TEMENT OF ^NCOME & EXPENSE): : rem 119 

4570 PRINT #4 :rem 180 

4580 PRINT#4,LB$;" JANUARY . 

{ SPACE } 

4590 PRINT#4, LB?; "FEBRUARY. 

{ SPACE } 

4600 PRINT#4, LB?; "MARCH . . 

{ SPACE } 

4610 PRINT#4, LB?; "APRIL . . 

{ SPACE } 

4620 PRINT#4,LB?;"MAY . . . 

{ SPACE } 

4630 PRINT#4,LB?;"JUNE. . . 

{ SPACE } 

4640 PRINT#4,LB?;" JULY. . . 

{ SPACE } 

4650 PRINT#4, LB?; "AUGUST. . 

{ SPACE } 

4660 PRINT#4, LB?; "SEPTEMBER 

{ SPACE } 

4670 PRINT#4, LB?; "OCTOBER . 

{SPACE}. 

4680 PRINT#4, LB?; "NOVEMBER. 

{ SPACE } 

4690 PRINT#4, LB?; "DECEMBER. 

{ SPACE } 



2 SPACES 1210 :rem 181 

2 SPACES 1220 I rem 2 53 

2 SPACES} 230 :rem 47 

2 SPACES} 2 40 :rem 62 

2 SPACES}250 :rem 221 

2 SPACES} 260 :rem 42 

2 SPACES} 270 :rem 62 

2 SPACES} 280 :rem 167 

2 SPACES} 290 :rem 27 

2 SPACES} 3 00 :rem 169 

2 SPACES} 310 :rem 251 



2 SPACES} 320" ;LF? 

:rem 233 

4700 PRINT»4 ,LA? ; " SUPPORTING { SHIFT-SPACE } STATEMENT 
S : " ;LF? :rem 249 

4710 PRINT#4, LB?; "ACCOUNT BALANCES BY DIS CATEGORY 
{2 SPACES} 510 :rem 144 

4720 PRINT#4, LB?; "INCOME FOR YEAR BY TYPE .... 
{SPACE} {2 SPACES }320 : rem 219 
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4730 PRI1!JT#4, LB? ; "EXPENSE FOR YEAR BY TYPE. . . . 

{SPACE} {2 SPACES} s rem 162 

4740 LC$=LEFT$(S$,20) : rem 100 
4750 PRINT#4,LC$;"N0T DEDUCTIBLE 

(2 SPACES} 532 : rem 212 

4760 PRINT#4,LC$;" DEDUCTIBLE 

{2 SPACES} 534 :rem 194 

4770 PRINT#4 ,LC$ ; "OTHER 

{2 SPACES} 536 :rem 252 

4780 PRINT#4,LC$; "CREDITORS 

{2 SPACES} 538" ;LF$;LF$ :rem 212 

4790 PRINT#4,LC$;" {19 SPACES} II " ;LF$ ;LF$ ;LF$ 

:rem 123 

4800 PRINT#4:CLOSE4:PRINT"{CLR} {6 DOWN}" :rem 152 
4810 PRINT "INSERT NEW SHEET IN PRINTER": SYS828 

:rem 108 

4820 PRINT"{4 DOWN}PRESS 'C WHEN READY : rem 134 
4830 GETA$ :IFA$=""THEN4830 :rem 193 

4840 IFA$<>"C"THEN4830 :rem 195 

4850 OPEN4,4,7 : rem 250 

4860 PRINT#4,LB$;"MINIMUM{SHIPT-SPACE}REQUIRED BAL 

ANCE {2 SPACES} 550 

:rem 54 

4870 PRINT#4,LB$;"I^NVESTMENTS 

{SPACE} {2 SPACES} : rem 14 

4880 PRINT#4 ,LC$ ; "BONDS 

{2 SPACES} 600 :rem 234 

4890 PRINT#4,LC$; "STOCKS 

{2 SPACES} 650 :rem 35 

4900 PRINT#4,LC$; "OTHER 

{2 SPACES} 700 :rem 240 

4910 PRINT#4,LB$;"SUMriARY OF ADJUSTMENTS 

{SPACE} {2 SPACES} 800 :rem 240 

4920 PRINT#4, LB? ; "ADJUSTMENTS 

(SPACE} {2 SPACES} 810 :rem 149 

4930 PRINT#4, LB?, '"SUMMARY OP TRANSFERS 

{SPACE} {2 SPACES} 900 : rem 135 

4940 PRINT#4, LB?; "TRANSFERS 

{SPACE} {2 SPACES} 910 :rem 44 

4950 PRINT#4,LB?;"BANK STATEMENTS 

{SPACE} 1000 : rem 182 

4960 PRINT#4, LB?; "PROPERTY LISTS AND SUMMARIES. . 

{SPACE} T2 SPACES} :rem 219 

4970 PRINT#4,LC?;"REAL ESTATE 

2000 :rem 128 

4980 PRINT#4,LC? ; "HOUSEHOLD GOODS 

:rem 160 

4990 LB?=LEFT?(S?,25) :rem 111 
5000 PRINT#4, LB?; "LIVING ROOM ..... 

{SPACE}. . . ?100 trem 3 
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5010 PRINT#4,LB$ ;" DINING ROOM 

{SPACE). . . 2200 :reni 245 
5020 PRINT#4,LB$;" KITCHEN 

{SPACE}. . . 2300 :rem 227 
5030 PRINT#4,LB$ ; "BATHROOM (S) 

{ SPACE } . . . "5400 : rem 1 31 
5040 PRINT#4, LB? ; "MASTER BEDROOM 

{SPACE}. . . 2500 :rem 171 
5050 PRINT#4, LB? ; "BEDROOM NO. 2 

{SPACE}. . . 2600 :rem 222 
5060 PRINT#4, LB?; "BEDROOM NO. 3 

{SPACE}. . . "5700 :rem 225 
5070 PRINT#4, LB?; "ATTIC 

{SPACE}. . . 2800 :reni 138 
5080 PRINT#4, LB?; "CELLAR/GARAGE/SHED 

{SPACE}. . . 2900 :rem 223 

5090 PRINT#4,LC?;" APPLIANCES 

30^0 :rem 241 

5100 PRINT#4,LC?; "AUTOMOBILES 

46(90 :rein 78 

5110 PRINT#4,LC?;" PERSONAL ^TEMS 

5000 :rein 22 

5120 P0RLL=1T014:PRINT#4,LF? :NEXT : rem 54 

5130 PRINT#4,LC?;"{19 SPACES} III" ;LF? ;LF? ;LF? 

:rem 185 

5140 PRINT#4:CLOSE4:PRINTCHR?(142) :rem 66 

5150 GOTO400 :rem 152 

5160 GETA?jIFA?=""THEN5160 :rem 187 

5170 IPA?<>"C"THEN5160 :rem 189 

5180 PRINT" { CLR} ": RETURN irem 76 

5190 P0KEB0,14:P0KEBA,6 :P0KE646,14 : rem 8 

5200 PRINT"{CLR} {6 DOWN} " :PRINTTAB( 12 ) "REMOVE DATA 
DISK": PRINT : rem 1 

5210 PRINTTAB( 18) "AND" :PRINT:PRINTTAB( 10) "INSERT P 

ROGRAM DISK": PRINT "{4 DOWN} :rem 157 

5220 PRINTTAB(9)"PRESS 'C TO CONTINUE :rem 255 
5230 GETA? :IPA?=""THEN5230 :rem 183 

5240 IFA?<>"C"THEN5230 irem 185 

5250 POKE631,83:POKE632,89:POKE633,83 trem 105 

5260 POKE634 , 53 :POKE635 ,49 iPOKE636,48 :POKE637 ,48 :P 

OKE638,48:POKE639,13 :rem 75 

5270 POKE198,9:NEW :rem 40 
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INCOME 

Remember to use the name above for the program you place on the PAM master disk. 

20 BO=53280:BA=53281 srem 47 

30 N=200:FE=0:F1=0:D1=0:I1=0 :Y=0 :MA=0 iM=0 :LL=0 :YI= 

0:TA=0:TIj=0:PN=0 :i:em 134 

40 TR=0:PR=0:PL=0:LF$=CHR$(10) :CR$=CHR$ ( 13) sSP$=CH 

R$(32) :NC=80:PC=0 :reml04 
50 N$ =" " : Nl $ =" " : N2 $ =" " : N3 $ =" " : N4$ =" " : TA$ =" " I SM$ =" " 

:RM$="":UM$=" srem 166 

60 VM$=" " : TM$=" " : P$=" " : PL$=" " : PR$=" " : A$=" " : Z$=" 

:rem 144 

70 S$=" " :FORSP=lTONC : S$=S$+SP$ :NEXT: LA$=IjEFT$( S$ , 1 
0) :LB$="":RA$=" :rem 30 

75 Fl$="lH0ME}{15 DOWN} ": ER1$=" {43 SPACES} ":rem 65 
77 F2$="{HOME}{13 DOWN } " : F3$=F2$+" {2 UP}" : rem 188 
80 DIML${30),M$(12),FW$(40),IT$(10),DI$(10) :DIMFW( 
40),IT(10),DI(10) jrem 211 

90 DI MI $ ( 2 00 , 5 ) : M$ ( 1 ) =" JANUARY" : M$ ( 2 ) = "FEBRUARY 

:rem 169 

100 M$(3)="MARCH":M$(4)="APRIL":M$(5)="MAY":M$(6)= 

"JUNE :rem 247 

110 M$( 7)="JULY":M$(8)="AUGUST :rem 188 

120 M$(9)="SEPTEMBER":M$(10)="OCTOBER irem 128 

1 30 M$ ( 1 1 ) = "NOVEMBER " : M$ ( 1 2 ) = "DECEMBER " : POKEBO , 5 : P 

0KEBA,5 :POKE646,l :rem 188 

140 PRINT"{CLR} { 3 DOWN} ":PRINTTAB( 17) "INCOME ":FORD 

=1TO5000 :NEXT srem 54 

150 POKEBO,14:POKEBA,6:POKE646,14 srem 207 

160 PRINT"{CIiR}{6 DOWN}":PRINTTAB(10)"REMOVE PROGR 

AM DISK":PRINT trem 205 

170 PRINTTAB ( 18 ) "AND": PRINT :PRINTTAB( 12) "INSERT DA 

TA DISK":PRINT:PRINT"C4 DOWN} :rem 56 

180 PRINTTAB (9) "PRESS ' C TO CONTINUE :rem 207 

190 GETA$:IFA$<>"C"THEN190 trem 215 

200 POKEBO, 12 :P0KEBA,12 :P0KE646,1 jPRINT" {CLR} 

{ 2 DOWN} " :PRINTTAB( 17 ) "INCOME " :PRINT:PRINT 

I rem 102 

210 PRINT "LOADING PERSONAL DATA " ; jF$="PERSDATA 

srem 114 

220 OPENS , 8 , 8 , "0 : " +F$ +" , S , R " : INPUT#8 , YR$ , N$ , Nl$ , N2 

$,N3$,N4$:PRINT" ."; :rem 21 

230 FORJ=1TO30:INPUT#8,L$( J) :NEXT:PRINT" .";:CLOSE 

8:GOSUB2480 :IFE>19THEN150 :rem 110 

2 40 F$ = " INCDATA " : OPE N8 , 8 , 8 , " : " +F$ + " , S , R " I INPUT#8 , 

F1,D1,I1 :PRINT" ."; : rem 63 

250 F0RJ=1T039:INPUT#8,FW$(J),PW(J) :NEXT:PRINT" ." 

/ srem 67 

260 F0RJ=1T09:INPUT#8,IT$( J),IT( J) :NEXT:PRINT" ."; 

srem 17 
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270 F0RJ=1T09:INPUT#8,DI$( J),DI( J) :NEDCT:PRINT" ."; 

: CLOSES :rem 218 

280 GOSUB2480:IFE>19THEN150 :rem 99 

290 P0KEB0,5 :POKEBA, 5 :POKE646, 1 tPRIblT " (CLR} 

{3 DOWN} '■:PRINTTAB( 17) "INCOME :rem 116 

300 PRINTTAB(8)" {DOWN}!. ENTER/CHANGE DATA":PRINTT 

AB(8)"{DOWN}2 . VIEW INCOME FOR MONTH :rera 190 
310 PRINTTAB(a)" {D0Vnj}3. VIEW INCOME FOR YEAR":PRI 

NTTAB(8)"{D0WN}4. VIEW INCOME BY TYPE :rem 212 
320 PRINTTAB(8)" {D0WN}5. MAIN MENU" :PRINTTAB ( 10) " 

{4 DOWN}PRESS DESIRED NUMBER :reni 160 

330 GETA$sIFA$=""THEN330 :rein 79 

340 IFA$<"1"ORA$>"5"THEN330 trem 190 

350 AA=VAL(A$) JONAAGOTO360, 1680, 2540, 3110, 3570 

:rein 249 

360 PRINT"{CI.R}{3 DOWN} " :POKEBO , 13 :P0KEBA,13 :P0KE6 

46, 0:PRINTTAB( 12) "ENTER/CHANGE DATA : rem 124 
370 PRINTTAB(11)"{D0WN}1. START NEW MONTH " :PRINTTA 

B{11)" {D0VJN}2. ADD NEW INCOME : rem 181 

380 PRINTTAB(11)"{D0WN}3. CORRECTIONS ": PR INTTAB( 11 

)"{D0»fflil}4. DELETE : rem 76 

390 PRINTTAB(11)"{D0WN}5. INCOME MENU" :PRINTTAB( 10 

)"{4 DOWN}PRESS DESIRED NUMBER : rem 103 

400 GETA$:IFA$=""THEN400 :rem 75 

410 1FA$<"1"ORA$>"5"THEN400 :rera 186 

42 AA=VAL ( A$ ) : ONAAGOTO430 , 490 ,1120,1 420, 290 

:rem 138 

430 PRINT" { CLR} " iPOKEBO , 15 :PQKEBA, 15 :POKE646 , 11 :PR 
INT "STARTING NEW MONTH : rem 97 

440 INPUT "MONTH NUMBER (2 DIGITS, 01 TO 12)";M:PRI 
NT:MA=1 :rem 26 

450 POKEBO,5 :P0KEBA,5 :POKE646 ,1 :GOSUB460 :GOTO510 

:rem 202 

460 PRINT "CLEARING MEMORY . . " ; :F0RZ=1T0N : rem 250 
470 F0RK=1T05:I$(Z,K)="":NEXT:PRINT" .";:NEXT 

:rem 195 

480 PRINT: RETURN srem 67 

490 P0KEB0,5 :P0KEBA,5 :P0KE646,1 :PRINTTAB ( 13) " {CLR} 

(2 DOWN} ADD NEW INCOME :rem 9 

500 INPUT"MONTH NUMBER (2 DIGITS, 01 TO 12)";M:G0S 

UB2430 :IFE>19THEN2 90 srem 29 

510 P0RJ=MAT0N:PRINT"{CLR}{2 D0WN}ALWAYS USE STAND 

ARD TYPE, FROM WHOM : rem 13 

520 PRINT"NAME, AND DISPOSITION CODES. "sPRlNTsPRIN 

T :rem 7 

530 PRINTTAB(13)" {2 D0WN}ADD NEW INCOME" :rem 133 
540 PRINT" {DOWN} ITEM NO. " ;J jPRINTsF0RK=lT05 

:rem 115 

550 IFK=2THENPRINT"IF DESIRED, PRESS 'T' (RETURN) 
{2 SPACES }FOR :rem 195 
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560 IFK=2THENPRINT"LIST OF STANDARD INCOME TYPES 

:rem 52 

570 IFK=3THENPRINT"IF DESIRED, PRESS 'F' (RETURN) 
{ SPACE }FOR :rem 184 

580 IFK=3THENPRINT"LIST OF STANDARD NAMES 

{9 SPACES} :rem 91 

590 IFK=4THENPRINT"IF DESIRED, PRESS 'D' (RETURN) 
{ SPACE )POR :rem 185 

600 IFK=4THENPRINT"LIST OF STANDARD DISPOSITION 

:rem 54 

610 PRINT iPRINTL$ ( K) ; :rem 50 

620 INPUTI$(J,K) :IFI$(J,K)=""THEN620 : rem 55 

630 IFI$(J,2)="T"THENGOSUB820:GOTO610 :rem 182 

640 IFI$(J,3)="F"THENGOSUB980:GOTO610 : rem 177 

650 LL=LEN(I$(J,3)) :IFLL>15THENI$(J,3)=LEFT$(I$(J, 
3), 15) :rem 120 

660 IFI$(J,4)="D"THENGOSUB900:GOTO610 :rem 170 

670 IFKO5THEN710 :rem 237 

680 P$=I$(J,5) :GOSUB2510:IFEF=1THEN610 : rem 194 
690 Z$=RIGHT$(P$,3) :IFMID$ (Z$ , 1 , 1 )=" . "THEN720 

:rem 231 

700 PRINT F2$ f "ERROR— AMOUNT NOT IN X.XX FORM": SYS 

828:FORD=1TO1000:NEXT :rem 116 

705 GOSUB 5000:GOTO 610 :rem 235 

710 GOSUB780 :rem 183 

720 NEXT:MA=MA+1 :PRINT"{CLRl {7 DOWN} " :PRINTTAB( 10) 

"ANOTHER ITEM? (Y/N) :rem 244 

730 GETA$:IFA$=""THEN730 :rem 87 

740 IFA$="N"THENJ=N:GOTO760 :rem 114 

750 IFA$<>"Y"THEN730 :rem 112 

760 NEXT:GOSUB2080 :PRINT :GOSUB2210 tPRINT :G0SUB2 380 

:IFE>19THEN360 : rem 114 

770 GOTO1710 :rem 160 

780 PRINT"{CLR}{2 D0WN}ALWAYS USE STANDARD TYPE, F 

ROM WHOM :rem 239 

790 PRINT"NAME, AND DISPOSITION CODES. " :PRINT:PRIN 

T :rem 16 

800 PRINTTAB(13)"I2 D0WN}ADD NEW INCOME" :rem 133 
810 PRINT "{D0\«N} ITEM NO. " ;J :PRINT: RETURN : rem 219 
820 PRINT"{CLR} {2 DOWN} " :PRINTTAB( 8) "STANDARD TYPE 

S OF INCOME": PRINT : rem 136 

830 PRINTTAB( 1 ) "TYPE "TAB ( 16 ) "INCOME " :PRINT:F0RZ=1 

TO9:IFIT$(Z)=""THEN850 :rem211 
840 PRINTTAB(12)IT(Z)TAB(16)IT$(Z) :rem 247 

850 NEXT:PRINT:PRINTTAB(9)"PRESS 'C TO CONTINUE 

:rem 19 

860 GETA$:IFA$<>"C"THEN860 :rem 223 

870 PRINT"{CLR}{2 D0WN}ALWAYS USE STANDARD TYPE, F 
ROM WHOM : rem 239 
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880 PRINT"NAME, AND DISPOSITION CODES. ":PRINT:PRIN 

TTAB(I3)"{2 DOWN}ADD NEW INCOME : rem 78 

890 PRINT" I DOlflS} ITEM NO. " r J :PRINT: RETURN :rein 227 
900 PRINT"{CLR} {2 DOWN} " :PRINTTAB( 5 ) "STANDARD DISP 

OSITION OP INCOME": PRINT : rem 68 

910 PRINTTAB( 8) "DIS"TAB( 13 ) "INCOME" : PRINT :F0RZ=1T0 

9:IFDI$(Z )=""THEN930 : rem 51 

920 DK$(Z)=LEFT$(DI${Z),3) iPRINTTAB( 8) DK$ (Z )TAB( 1 3 

)DI$(Z) :rem 254 

930 NEXT:PRINT:PRINTTAB(9)"PRESS ' C TO CONTINUE 

:rem 18 

940 GETA$jIFA$<>"C"THEN940 :rem 221 

950 PRINT"{CLR}{2 DOWNIALWAYS USE STANDARD TYPE, F 

ROM WHOM srem 238 

960 PRINT"NAME, AND DISPOSITION CODES. ":PRINT:PRIN 

TTAB(13)"{2 DOWN} ADD NEW INCOME :rem 77 

970 PRINT "{DOtiN} ITEM NO. " ; J :PRINT : RETURN :rem 226 
980 PRINT"{CLR){2 DOWN} " :PRINT "STANDARD LIST OF FR 

OM WHOM INCOME IS I rem 248 

990 PRINT :PRINT "RECEIVED. {2 SPACES } SPELL EXACTLY:" 

:PRINT:LL=0:FORFW=1TO39 :rem 196 

1000 IFFW$(FW)=""THEN1020 : rem 114 

1010 PRINTTAB(10)FW$(FW) :LL=LL+1 :IFLL=15THEN1030 

:rem 129 

1020 NEXT:IPFW=40THEN1070 :rem 

1030 PRINT:PRINTTAB(9)"PRESS ' C TO CONTINUE 

:rem 193 

1040 GETA$ :IFA$<>"C"THEN1040 :rem 45 

1050 PRINT"{CLR}{2 DOWN }":PRINT "STANDARD LIST OF F 

ROM WHOM INCOME IS : rem 29 

1060 PRINT: PRINT "RECEIVED. {2 SPACES}SPELL EXACTLY: 

":PRINT:LL=0 :GOTO1020 :rem 228 

1070 PRINT : PRINT rPRINTTAB( 9) "PRESS ' C TO CONTINUE 

:rem 140 

1080 GETA$:IFA$<>"C"THEN1080 : rem 53 

1090 PRINT"lCLR}{2 DO\«l}ALWAYS USE STANDARD TYPE, 

{SPACE} FROM WHOM :rem 26 

1100 PRINT"NAME, AND DISPOSITION CODES. ": PRINT :PRI 

NTTAB(13)"{2 D0WN}ADD NEW INCOME : rem 112 

1110 PRINT "{D0V»I} ITEM NO . " ; J :PRINT : RETURN :rem 5 
1120 PRINT"{CLR} ":POKEBO,10:POKEBA,10 :P0KE646,1 :PR 

INTTAB ( 15 )" {DOWN }CORRECTIONS": PRINT :rera 74 
1130 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)":INPU 

T"OF REPORT DESIRED ";M : rem 198 

1140 GOSUB2430:IFE>19THEN290 :rem 143 

1150 LL=0:K=14:PRINT"{CLR}":PRINTTAB(15)" {D0WN}C0R 

RECTIONS":PRINT srem 77 

1160 PRINT "ITEM NO. "TAB ( 10) L$ ( 3) TAB ( 33 ) L$ ( 5) :PRINT 

: rem 91 
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1170 FORJ=lTOMA-l :PRINTTAB( 3) JTAB( 10) I$( J , 3) ; 

:rein 142 

1180 PRINTTAB ( 39-LEN( I$(J,5)))I$(J,5): LIi=LL+l : I FLL 
=>KTHEN1200 :rein 54 

1190 NEXT2lFJ=MATHEN1240 :rem 222 

1200 PRINT: PRINTTAB (9) "PRESS ' C TO CONTINUE 

trem 192 

1210 GETA$:IFA$<>"C"THEN1210 :rem 43 

1220 LL=0:PRINT"{CLRl": PRINTTAB (15)" {DOWN } CORRECT I 

ONS":PRINT :rem 36 

1230 PRINT"ITEM NO. "TAB ( 10) L? ( 3) TAB ( 33) L$ ( 5) iPRINT 

:GOTO1190 :rein 151 

1240 PMNT :rem 84 

1250 A$="":PRINTF1$;ER1$;F1$; : INPUT "ITEM NO. TO CO 

RRECT";A$ : rem 165 

1260 JJ=VAL(A$) :IFJJ<=0ORJJ>MA-1THEN1250 : rem 143 
1270 PRINT" {CLR}": PRINT "CORRECT ITEM ";A$sPRINT" 

{D0WN}PRESS RETURN IF NO CHANGE: " :PRINT 

:rem 118 

1280 PRINTL$(l)j :PRINTTAB(14) I$(JJ,1); :INPUTI$(JJ, 

1) :rem 60 
1290 PRINTL$(2); :PRINTTAB{ 14) I$( JJ , 2) ; : INPUTI$( JJ , 

2) :rem 64 
1300 PRINTL$( 3) ; :PRINTTAB( 14) I$( JJ , 3) ; :INPUTI$(JJ, 

3) :LL=LEN(I$(JJ,3) ) : rem 43 
1310 IFLL>15THENI$( JJ,3)=LEFT$(I$(JJ,3),15) 

:rem 144 

1320 PRINTL$(4); iPRINTTAB( 14) I$( JJ ,4) ; :INPUTI$(JJ, 

4) :rem 64 
1330 PRINTF2$;L$(5); :PRINTTAB( 14) I$( JJ , 5) ; : I2?=I$ ( 

JJ,5) :INPUTI$(JJ,5) :rem228 
1335 P$=I$(JJ,5) :rem 48 

1340 GOSUB2510:IFEF=1THENI$( JJ,5)=I2$:GOTO 1330 

:rem 202 

1350 Z$=RIGHT$(P$,3) : IFMID? (Z$ ,1 , 1) =" . "THEN1370 

:rem 67 

1360 PRINTF2$ ; "ERROR— AMOUNT NOT IN X.XX FORM": SYS 

828:FORD=1TO1000:NEXT :rem 167 

1365 I$(JJ,5)=I2$ :GOSUB 5000 :GOTO 1330 :rem 23 

1370 PRINT"{CLR} {7 DOWN }": PRINTTAB ( 10) "ANOTHER ITE 

M? (Y/N) ,rem 190 

1380 GETA$ :IFA$=""THEN13a0 : rem 187 

1390 IFA$="Y"THEN1150 .rem 145 

1400 IFA$<>"N"THEN1380 : rem 192 

1410 GOSUB2080 :PRINT:GOSUB2210iPRINT:GOSUB2380 :GOT 

0360 -rem 176 

1420 PRINT"{CLR} ":P0KEB0,2 :P0KEBA,2 :POKE646,l :PRIN 

TTAB(15)" {D0WN}DELETI0NS":FE=1:PRINT : rem 126 
1430 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)":INPU 

T"OF REPORT DESIRED";M : rem 201 
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1440 GOSUB2430:IFE>19THEN290 :rem 146 

1450 LL=0jK=14:PRINT"{CLR}":PRINTTAB(16)" {DOtni}DEL 
ETIONS" :PRINT : rem 173 

1460 PRINT "ITEM NO. "TAB ( 10) L$ (3) TAB (33) L$ ( 5) :PRINT 

trem 94 

1470 FORJ=1TOMA-1jPRINTTAB('3)JTAB(10)I$(J,3) ; 

:rein 145 

1480 PRINTTAB{ 39-LEN( I$( J , 5) ) ) I?( J , 5) i LL=LL4-1 : 1 FLL 
=KTHEN1500 :rem 254 

1490 NEXT sIFJ=MATHEN1 550 : rem 229 

1500 PRINTiPRINTTAB(9)"PRESS ' C TO CONTINUE 

:rem 195 

1510 GETA$:IFA$<>"C"THEN1510 irem 49 

1520 LL=0:PRINT"{CLR}":PRINTTA6(15)" {DOWN } DELETION 
S":PRINT :rem 131 

1530 PRINT"ITEM NO. "TAB ( 10) L$ ( 3) TAB ( 33) L$ ( 5) 

: rem 149 

1540 PRINT :G0T01 490 :rem 152 

1550 PRINT: PRINT "PRESS 'C TO CONTINUE OR ANY KEY 

{ SPACE }T0 EXIT :rera 182 

1560 GETA$ :IFA$=""THEN1560 :rem 187 

15 70 IFA$<>"C"THEN360 :rem 138 

1580 PRINT :rem 91 

1590 A$="":PRINTF1$;ER1$;F1$; : INPUT "ITEM NO. TO DE 

LETE";A$ :rem 77 

1600 JJ=VAL(A$) :IFJJ<=0ORJJ>MA-1THEN1590 :rem 148 
1610 PRINT" {CLR)":PRINT "DELETE ITEM " ; A$ :PRINT : 1$ ( 

JJ,1)="99":I$(JJ,2)="0 :rem 213 

1615 PRINT Fl$;"{3 D0V<N}{8 SPACES}PRESS ANY KEY TO 

CONTINUE" :rem 13 

1616 GETR$:IF R$="" THEN 1616 :rem 225 
1620 I$( JJ , 3 )="ZZZZZZZZZZZZZZZ " : I$( JJ , 4 )=" 0" : I$( JJ 

,5)="0.00 :rem 232 

1630 PRINT"{ OiR} {7 DOWN} " :PRINTTAB( 10 ) "ANOTHER ITE 

M? (Y/N) :rem 189 

1640 GETA§:IFA$=""THEN1640 :rem 185 

1650 IFA$="Y"THENFE=FE+1:GOTO1450 :rem 181 

1660 IFA$<>"N"THEN1640 :rem 199 

1670 GOSUB2080:PRINT:GOSUB2210:PRINT:MA=MA-FEiGOSU 

B2380 :GOTO360 : rem 3 

1680 PRINT "{CLRl":POKEBO, 15 :P0KEBA,15 :POKE646,ll 

:rem 212 

1690 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)":INPU 
T"OF REPORT DESIRED" ;M : rem 209 

1700 6OSUB460:YI^:GOSUB2430:IFE>19THEN290 : rem 46 

1710 P0KEB0,5 :P0KEBA,5 :POKE646,l :K=14 :GOSUB1870 :FO 
RJ=1T0MA-1 :rem 182 

1720 IFM>9THENZ$=STR$(M) :PRINTMID$(Z$,2)SPC(1) I$( J 
,1); :GOTO1740 : rem 251 

1730 PRINTM; I$( J,l) ; :rem 128 
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1740 PRINTTAB( 7) I$( J , 2)TAB(10) I$( J , 3)TAB( 26) I$( J ,4 
) TAB (30)"$"; :rem 52 

1750 PRINTTAB( 39-LEN( I$( J , 5) ) ) I$( J , 5) : LI^LLfl : IPLL 
=KTHEN1770 :rem 7 

1760 NEXT:IFJ=>MATHEN1800 :rem 33 

1770 PRINT:PRINTTAB(9)"PRESS ' C TO CX)NTINUE 

:rem 204 

1780 GETA$:IFA$<>"C"THEN1780 : rem 67 

1790 GOSUB1870 :GOTO1760 : rem 98 

1800 PRINTTAB(29)"E10 T|" :PRINTTAB ( 21) L? ( 17) " 

{3 SPACES}?"; :rem 169 

1810 PRINTTAB(39-LEN(TA$) )TA$ : rem 186 

1820 PRINT" {2 DOWN}HARD COPY (Y/N) ? : rem 92 

1830 GETA$:IFA$=""THEN1830 : rem 187 

1840 IFA$="N"THEN290 : rem 90 

1850 IFA§<>"Y"THEN1830 : rem 212 

1860 GOTO1910 :rem 211 

1870 LL=0 tPRINT " {CLR} " : PN=202+ 10*M : PRINTN? TAB ( 35 ) P 

N:PRIIJT"{UP} "M$(M)+" "+YR$ : rem 154 

1880 PRINTTAB (17)" INCOME ":PRINTTAB( 17 )" E6 T§ 

:rem 56 

1890 PRINT "DATE "TAB( 6 )"TY"TAB( 10) "FROM WHOM "TAB (26 
)"DIS "TAB (33) "AMOUNT irem 132 

1 900 PORL= 1T03 9 : PRl NT " gTi " ; :NEXT : P RI NT : RETU RN 

:rem 189 

1910 OPEN4,4,l:IiB$=LEFT$(S$,56-LEN(N$)) :PRINT*4,LA 
$;N$;LB$;PN;LF$ :rem 243 

1920 PRINT#4,LA$;M$(M)+" "+YR$ ;LF$ ;LF$ : rem 34 

1930 LB$=LEFT$(S$,37) :PRINT#4,LB$ ;"INCOME";LF$ :PRI 
NT#4,LB$;"i5 Tl";LF$ :rem 43 

1940 PRINT#4,LA$;"DATE{4 SPACES )TY{ 5 SPACES }FROM W 
HOM"; :rem 13] 

1950 LB$=LEFT?(S$,15) :PRINT#4,LB$;"DIS"; :rem 253 
1960 LB$=LEFT$(S?,12) :PRINT#4 ,LB$ ; "AMOUNT " ;LF$ 

:rem 165 

1970 PRINT#4,LA$; :F0RL=1T045 :PRINT#4, "iTl" ; :NEXT:P 

RINT#4,LF$;LF$sF0RJ=lT0MA-l :rem 242 

1980 GOSUB2060:PRINT#4,RA$;M;I$(J,1) ;"{4 SPACES}"; 

I$(J/2);"{5 SPACES}";I$(J,3) ; : rem 191 

1990 LB$=LEFT$(S$,24-LEN(I$(J,3) )) :PRINT#4,LB$;I$( 

J,4);"{4 SPACES}";"?"; trera 43 

2000 LB$=LEFr$(S$,13-LEN(I$(J,5) )) :PRINT#4,LB$;I$( 

J,5) ;LF$:NEXT :rem 40 

2010 l.B$=LEFT$(S$,55) :PRINT#4,LB$;"ill Tl" ;LF$ 

:rem 204 

2020 LB$=LEFT$(S$,48) :PRINT#4 ,LB$ ; L$( 17) ;" 

{3 SPACES}?"; :rem 160 

2030 RA?=LEFT?(S?,13-LEN(TA?)) :PRINT#4 ,RA§;TA? ;LF$ 

:rem 92 
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2040 LB$=LEFT$(S$,55) iPRINT#4,LB$;"Ell T3";CR$;:PR 

INT»4 ,LB$ ; " DDDDDDDDDDD : rem 210 

2050 F0RSP=1T012 :PRINT#4 ,LF$ : NEXT :PRINT#4 : CL0SE4 :G 

OTO290 :reni 78 

2060 MM$=STR$(M) :IFLEFT$(MM$,1)=" "THENMM$=MID$ (MM 

$,2) :rein 24 

2070 RA$=LEFT$(S$,H-LEN(MM$)) :RETURN : rem 15.1 

2080 PRINT:PRINT"{3 DOVffiljsUMMING . . " ; :TA=0:TL=0:T 

R=0:TA$="":FORJ=1TOMA-1 :PRINT" ."; irem 108 
2090 P$=I$(J,5) :GOSUB2180:TL=TL+PL:TR=TR+PR:NEXT 

:rem 241 

2100 TA=TL+TR:IFTA=0THENTA$="0 .00": RETURN : rem 18 
2110 TA$=STR$(TA+.001) :TA$=LEFT$ ( TA$ ,LEN( TA$ ) -1 ) :R 

ETURN :rem 189 

2120 TA=0:TL=0:TR=0:P$=I$( JC,5) :GOSUB2 180 :TL=PL-1 : 

TR=PR+1 :rem 163 

2130 P$=I5$ :GOSUB2180 :TL.=TL+PL: TR=TR+PR:TA=TL+TR 

:rera 41 

2140 IFTA=0THENI$(JC,5)="0 .00":RETURN :rem 140 

2150 IFTA<0THENI$( JC,5)=STR$(TA-.001) :rem 95 

2160 IFTA>0THENI$(JC,5)=STR$(TA+.001) : rem 96 

2170 I$(JC,5)=LEFT$(I$(JC,5),LEN(I?(JC,5) )-l) :RETU 

RN :rem 127 

2180 PL$=LEFT$(P$,LEN(P$)-3) :PL=VAL(PL$) :PR$=RIGHT 

$(P$ ,3) :PR=VAL(PR$) : rem 41 

2190 IFPL<0THENPR=PR*-1 :rem 155 

2200 RETURN I rem 164 

2210 IFMA=<2THEN2290 :rem 137 

2220 PRINT "NOW SORTING. . " ; : P0RJJ=lT0MA-2 :FORKK=JJ 

+1T0MA-1 :rem 110 

2230 IFI$(KK,1)>I$(JJ,1)THEN2280 :rem 239 

2240 SM$=I?(KK,1) :RM$=I$(KK,2) :TM$=I$ ( KK,3 ) :UM$=I$ 

(KK,4) :VM$=I$(KK,5) :rem57 
2250 I$(KK,1)=I$( JJ,1) :I$(KK,2)=I?( JJ,2) :I$(KK,3)= 

I${JJ,3) trem 26 

2260 I$(KK,4)=I$(JJ,4) :I$(KK,5)=I$( JJ,5) : rem 76 
2270 I$(JJ,1)=SM$:I$(JJ,2)=RM$:I$(JJ,3)=TM§:I$(JJ, 

4)=UM$:I$(JJ,5)=VM$ : rem 50 

2280 NEXT:PRINT" .";:NEXT :rem 248 

2290 RETURN :rem 17 3 

2300 IFMY=2THEN2370 :rem 100 

2310 PRINT:PRINT"SORTING . " ; :F0RJJ=lT0MY-2 :FORKK=J 

J+lTOMY-1 :rem 67 

2320 IFI§(KK,3) >I$( JJ,3)THEN2360 :rem 242 

2330 SM$=I$(KK,3) :RM$=I${KK,2) :TM$=I$(KK, 5) :UM$=I? 

(KK,4) :rem 74 

2340 I$(KK,3)=I$(JJ,3) : I${ KK , 2)=I$( JJ , 2) : I$(KK , 5) = 

I$( JJ,5) iI$(KK,4)=I$( JJ,4) :rem 255 

2350 I$(JJ,3)=SM$:I$( JJ,2)=RM$:I$(JJ,5)=TM$: I${ JJ, 

4)=UM$ :rem 68 
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2360 NEXTiPRINT" .";:NEXT : rem 247 

2370 RETURN :rein 172 

2380 PRINT"! 'M SAVING . . " ; :F$="INCOME"+M$ (M) :OPEN 

15,8,15:PRINT#15, ••S0:"+F$ :reni 174 

2390 CLOSE15:OPEN8,8,8,"0:"+F$+",S,W":PRINT#8,Y", " 

MA" , "M " , "TA$ " , "N$ CHR$ ( 13 ) : rem 25 

2400 F0RJB=1T0MA-1 : rem 54 

2410 PRINT#8,I$(JB,1)", "1$ ( JB, 2 ) " , "1$ ( JB, 3 ) " , "1$ ( J 

B,4)", "I$(JB,5)CHR$(13) :rem 158 

2420 PRINT" . "; sNEXT:CLOSE8:YI=0:GOSUB2480:RETURN 

:rem 78 

2430 PRINT SPRINT "LOADING . " ; :F$="INCOME"+M$ (M) :OPE 

N8,8,8, "0:"+F$+",S,R : rem 7 

2440 INPUT#8,Y,MA,M,TA$,N$:F0RJB=1T0MA-1 s rem 154 
2450 INPUT#8 , 1 $ ( JB, 1 ) , I $ ( JB, 2 ) , 1$ ( JB, 3 ) , 1$ ( JB, 4 ) , I 

${JB,5) .-PRINT" .";sNEXT :rem204 
2460 CLOSES : rem 122 

2470 GOSUB2480: RETURN : rem 53 

2480 E=0sOPEN15,8,15 :INPUT#15,E,E$ : rem 161 

2490 IFE> 19THENPRINT sPRINTE$ : SYS828 sFORD=lTO5000 : N 

EXT :rem 198 

2500 CLOSEl 5 s RETURN : rem 189 

2510 EF=0sLl=LEN(P$) :FORL=lTOLl sT$=MID$ ( P$ ,L , 1 ) :AB 

=ASC(T$) :IFAB=46THENNEXT : rem 213 

2520 IFAB<480RAB>57THENL=U :EF=1 sGOSUB5000 sPRINTF2 

$; "ERROR IN INPUT ": SyS828 : rem 166 

2530 GOSUB 5000 :NEXT: RETURN : rem 162 

2540 POKEBO,15:POKEBA,15 :POKE646,11:TY=0 : rem 134 
2550 PRINT"{CLR}":PRINT:PRINT"INCOME FOR ";YR$:IFY 

I=1THEN2790 srem 136 

2560 GOSUB460:PRINT: PRINT "LOADING INCOME FORs":M=l 

:rem 136 

2570 F$="INCOME"+M$(M) :PRINTM$(M), : rem 176 

2580 0PENa,8,8, "0:"+F$+",S,R":INPUT#8,Y,MY,M,TA$,N 

$:JB=lsLL=0 :rem 199 

2590 INPUT#8 , 1$ ( JB, 1 ) , 1$ ( JB, 2 ) , 1$ ( JB, 3 ) , I? ( JB, 4 ) , I 

$(JB,5) :IFMY=<2THEN2650 srem 250 

2600 P0RJD=2T0MY-1 sINPUT#8,Il$ ,12$, 13$ ,14$ ,15$ sFOR 

JOITOJD srem 193 

2610 IFI$( JC,3)=13$THENGOSUB2120sLL=LL+lsJC=JDsNEX 

TsGOTO2640 srem 160 

2620 NEXT srem 9 

2630 JB=JB+lsI$(JB,l)=Il$ sI$(JB,2)=I2$sI$(JB,3)=I3 

$sI$(JB,4)=I4$sI$(JB,5)=I5$ srem 60 

2640 NEXTs MY=MY-LL srem 147 

2650 CLOSE8sGOSUB2480sIFE>19THEN290 srem 131 

2660 OPEN15,8,15 sFORI*=2T012 5F$="INC0ME"+M$(M) sOPEN 

8,8,8, "0s "+F$+",S,R srem 126 

2670 INPUT#8 ,Y, MA, M,TA$ ,N$ s INPUT#15 ,E ,E$ sIFE>19THE 

NM=12sGOTO2730 srem 95 
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2680 PRINTM$ (M ) , :FOKrB=lTOMA-l : 1NPUT#8 , 11$ , 12$ , 13$ 
,I4$,I5$ :FORJC=lTOMY'-l : rem 38 

2690 IFI$(JC,3)=I3$THENGOSUB2120:JC=MY-1:NEDCT:GOTO 
2720 :rem 26 

2700 NEXT:I$(My,l)=Il$:I$(M5f,2)=I2$:I$(My,3)=I3$ 

:rein 144 

2710 I$(My,4)=I4$:I$(MY,5)=I5$:MY=MY+l : rem 105 
2720 NEXT :rem 10 

2730 CLOSES :NEXT:CL0SE15 :MA=MY :GOSUB2080 :F$="INCOM 

E"+" "+YR$ :OPEN15,8,15 : rem 73 

2740 PRINT#15, '•S0:"+F$ :CL0SE15 :OPENB ,8 ,8, "0:"+F$+" 

,S,W :rem 229 

2750 PRINT#8,YR", "MY", "TA$", "N$CHR$(13) :GOSUB2300 

:rem 227 

2760 PRINT :PRINT "SAVING INCOME FOR YEAR FILE .";:F 

0RKK=1T0MY-1:PRINT" ."; : rem 203 

2770 PRINT#8,I?(KK,2)", "I$(KK,3)", "I$(KK,4)", "I$(K 

K,5)CHR$(13) :NEXT:CL0SE8:YI=1 :rem 99 

2780 SYS828 :rem 114 

2790 IFTYO0THEN3190 : rem 180 

2800 P0KEB0,5 sP0KEBA,5 :P0KE646,1 :K=14 :GOSUB2940 :F0 

RJB=1T0MY-1 :rem 16 

2810 PRINTI$(JB,2)TAB( 7) I$(JB, 3)TAB{ 28)" $"; tPRINTT 

AB(39-LEN( I$( JB,5) ) )I$( JB,5) .-rem 75 

2820 LIj=LL+l:IFLL=KTHEN2840 : rem 123 

2830 NEXT: IFJB=>MYTHEN2870 : rem 130 

2840 PRINT :PRINTTAB( 9)" PRESS ' C TO CONTINUE 

:rem 203 

2850 GETA$ :IFA$<>"C"THEN2850 : rem 65 

2860 GOSUB2940:GOTO2830 :rem 95 

2870 PRINTTAB(28)"ill T3" : PRINTTAB ( 20) L$ ( 17 ) " 

{3 SPACES} $"; : rem 82 

2880 PRINTTAB(39-LEN(TA$) )TA$ : rem 194 

2890 PRINT" {2 DOWN}HARD COPY (Y/N) ? : rem 100 

2900 GETA$:IFA$= rHEN2900 : rem 185 

2910 IFA$="N"THEN290 : rem 89 

2920 IFA$<>"Y"THEN2900 :rem 210 

2930 GOTO2970 :rem 217 

2940 PRINT" {CLR} " :PN=130 :LL=0 :PRINTN$TAB ( 35) PNiPRI 

NTTAB( 13) "INCOME FOR ";YR$ s rem 197 

2950 PRINTTAB ( 13) "B15 Tl" : PRINT "TY"TAB ( 7) "FROM WHO 

M"TAB( 33) "AMOUNT : rem 8 

2960 FORL=lT039:PRINT"iTl" ; :NEXT: PRINT : RETURN 

:rem 196 

2970 0PEN4,4,1:LB$=LEFT$(S$,56-LEN(N$)) :PRINT#4,LA 
$;N$;LB$ ;PN;LF$ ;LF$ :rem 235 

2980 LB$=LEFT$( S$, 34) iPRINT#4,LB$; "INCOME FOR ";YR 
$;LF$ :rem 132 

2990 PRINT#4,LB$;"gll T|" ;LF$ : rem 7 
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3000 PR1NT#4,LA$; "TyPE{5 SPACES } FROM WHOM RECEIVED 
" • : rem 54 

3010 LB$=LEPT$(S$,27) jPRINT#4 ,1,B$ ; "AMOUNT" ;LF$ 

:rein 159 

3020 PRINT#4,LA$;iFORL=lT045:PRINT#4,"iT|";:NEXT:P 1 | 

RINT#4,LF$;LF$ :F0RJB=1T0MY-1 : rem 64 ' — ' 

3030 PRINT#4,LA$;I$(JB,2) ;"{8 SPACES }"; 1$ ( JB, 3 ) ; 

trem 8 ^ , 

3040 LB$=LEFT$(S$,37-LEN(I${JB,3))) :PRINT#4,LB$;"$ { \ 

" ; : rem 67 

3050 LB$=LEFT$(S$,13-LEN(I${JB,5) )) :PRINT#4 ,LB$ ; 1$ 
( JB,5) ;LF$ :NEXT : rem 178 

3060 LB$=LEFT$(S$,55) :PRINT#4,LB$ j"gll Tl";LF$ 

:rem 210 

3070 LB$=LEFT$(S$,48) :PRINT#4,LB$;L$(17) ;" 

{3 SPACES}?"; :rem 166 

3080 RA$=LEPT$( S$ ,13-LEN( TA$ ) ) iPRINT#4 , RA$ ; TA$ ; LF$ 

:rem 98 

3090 I,B$=LEFT$(S$,55) :PRINT#4,LB$;"gll T§";CR$;:PR 

INT#4,LB$;"DDDDDDDDDDD : rem 216 

3100 F0RSP=1T012 :PRINT#4 , LF$ : NEXT iPRINT#4 : CL0SE4 :G 

OTO290 :rem 75 

3110 PRINT"{CL,R}{2 DOW'N} " iPRINTTAB( 8) "STANDARD TYP 

ES OF INCOME":PRINT i rem 179 

3120 PRINTTAB(10)"TYPE"TAB(18)"INCOME":PRINT:FORZ= 

1TO9:IFIT$(Z)=""THEN3140 : rem 43 

3130 PRINTTAB(12)IT(Z)TAB(16)IT$(Z) :rem 34 

3140 NEXT:PRINT:PRINTTAB( 11) "PRESS TYPE NUMBER 

:rem 217 

3150 GETA$sIFA$=""THEN3150 srem 181 

3160 IFA$<"1"ORA$>"9"THEN3150 : rem 40 

3170 TY=VAL(A$) iF0RZl=lT09 i IFIT(Z1 )=TYTHENZ2=Z1 

:rem 243 

3180 NEXT:PRINT"{CLR}":IFYI=0THEN2550 :rem 124 

3190 P0KEB0,5 !P0KEBA,5 :POKE646,l :K=14:GOSUB3530:FO 

RJB=lTOMy-l I rem 15 

3200 IFVAL( I$( JB,2) )<>TYTHEN3230 :rem 78 ( 

3210 PRINTI$(JB,2)TAB(7)I$(JB,3)TAB(28)"$"; :PRINTT ! — ' 

AB(39-LEN(I$(JB,5) ))I$(JB,5) .-rem 70 

3220 H>=LI/fl:IFLL=KTHEN3240 :rem 113 

3230 NEXT:IFJB=>MyTHEN3270 :rem 120 I J 

3240 PRINT :PRINTTAB( 9) "PRESS ' C TO CONTINUE 

:rem 198 

3250 GETA$:IFA$<>"C"THEN3250 : rem 55 

3260 GOSUB3530:GOTO3230 :rem 81 

3270 PRINTTAB(28)"ill Ti" : TA=0 :TL=0:TR=0 :TY$=" " :F0 

RJ=1T0MY-1 srem 12 

3280 IFVAL( I$( J,2) )<>TyTHEN3310 :reml9 
3290 P$=I$(J,5) :PL$=LEFT$(P$,LEN(P$)-3) iPL=VAL(PL$ 

) :PR$=RIGHT$(P$,3) :rem 109 
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3300 PR=VAL(PR$) :TR=TR+PR:TL=TI>PL : rem 173 

■ 1 3310 NEXT:TA=TL+TR:IFTA=0THENTY$="0.00" :GOTO3330 

:rem 201 

_ 3320 TY$=STR$(TA+.001) !TY$=LEFT$(Ty$,ljEN(TY$)-l) 
^ j :rem 7 

■ 3330 PRINTTAB(20)L$(17)"{3 SPACES} $"; trem 172 
3340 PRINTTAB(39-LEN(TY$) )TY$:PRINT"{DOl<N}HARD COP 

f— n Y (Y/N) ? srem 164 

L 1 3350 GETA$ :IFA$=""THEN3350 : rem 185 

3360 IFA$="N"THEN290 :rem 89 

3370 IFA$<>"Y"THEN3350 : rem 210 

3380 OPEN4,4,l:LB$=LEFT$(S$,56-LEN(N$)) :PRINT#4,LA 
$;N$;LB$ ;PN;LF$ : rem 246 

3390 PRINT#4,LA$;IT${Z2) ;LF$ :LB$=LEFT$( S$ , 34) :PRIN 
T# 4, LB?; "INCOME FOR ";YR$;IiF$ :rem 69 

3400 PRINT#4,LB$ ;"ill T§";LF$ i rem 250 

3410 PRINT#4,LA$;"TYPE{5 SPACES }FROM WHOM RECEIVED 
"; I rem 59 

3420 LB$=LEFT$(S$,27) :PRINT#4 ,LB$ ; "AMOUNT" ;LF$ 

:rem 164 

3430 PRINT#4 ,LA$ ; iPORL=lT045 :PRINT#4, "gT|" ; :NEXT:P 
RINT#4,LF$;LF$:F0RJ&=1T0MY-1 :rem 69 

3440 IFVAL(I$( JB,2) )<>TYTHEN3480 :rem 91 

3450 PRINT#4,LA$;I$(JB,2) ;"{8 SPACES }"; I$(JB , 3) ; 

:rem 14 

3460 LB$=LEFT$( S$ , 37-LEN( I$( JB , 3) ) ) :PRINT#4 ,LB$ ? " $ 

" ; : rem 73 

3470 LB$=LEFT$(S$,13-LEN(I$(JB,5) )) sPRINT#4 ,LB$ ; 1$ 

(JB,5);LF$ srem 63 

3480 NEXT:LB$=LEFT$(S$,55) :PRINT#4,LB$;"gll T3";LF 

$ :rem 81 

3490 LB$=LEET$(S$,48) :PRINT#4 ,LB$ ;L$ ( 17 ) ; " 

{3 spaces} $"* srem 172 

3500 RA$=LEFT$(S$',13-LEN(TY$) ) :PRINT#4 , RA$ ; TY$ ;LF? 

:rem 143 

3510 LB$=LEFT$(S$,55) :PRINT#4,LB$;"gll Ti";CR$;sPR 
n. INT#4 ,LB$ ; " DDDDDDDDDDD : rem 213 

' ' 3520 FORSP=1T012:PRINT#4,LF$:NEXT:PRINT#4:CLOSE4:G 
OTO290 :rem 81 

r—1 3530 PRINT"{CLR}":PN=520+TYsLIi=0:PRINTN$TAB(35)PN: 
i ( PRINT" {UP} "IT$(Z2) SPRINT $ rem 90 

3540 PRINTTAB( 13) "INCOME FOR " ; YR$ sPRINTTAB( 1 3 ) " 

gl5 Tl srem 215 

'—■] 3550 PRINT "TY"TAB( 7) "FROM WHOM "TAB ( 3 3 ) "AMOUNT " 

' ^ srem 3 

3560 F0RL=1T039 sPRINT"iT§" ; sNEXTs PRINT s RETURN 

srem 193 

li 3570 P0KEB0,14 :P0KEBA,6 sPOKE646,14 srem 8 

3580 PRINT"{CLR}{6 DOWN } "sPRINTTAB ( 12) "REMOVE DATA 
DISK" s PRINT srem 10 
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3590 PRINTTAB ( 18 ) "AND": PRINT :PRINTTAB( 10) "INSERT P 
ROGRAM DISK":PRINT:PRINT"{ 4 DOWN} :reni 109 
3600 PRINTTAB (9) "PRESS ' C TO CX5NTINUE :reni 255 
3610 GETA$:IFA$=""THEN3610 :rem 183 

3620 IFA$<>"C"THEN3610 :rem 185 

3630 POKE631,83:POKE632,89:POKE633,83 irem 105 

3640 POKE634,53 :POKE635 ,49 :POKE636,48 :POKE637 ,48 :P 
OKE638,48 :POKE639,13 : rem 75 

3650 POKE198,9 :NEVir : rem 40 

5000 REM FORMAT :rem 114 

5010 PRINT F1$;ER1$;F2$;ER1$;F3$: RETURN irem 5 



EXPENSE 

Remember to use the name above for the program you place on the PAM master disk. 

20 N»200 :Els0 >E2=>0 1 E3=0 1 E4=0 tEE=0 xYE=0 tYR=0 iAA=0 :Y 

a0tM=0tMAal :PIiN0 irem 89 

30 BO=53280 :BA»53281 tLL»0 tPIi=0 tPRs0 1 J J=0 :LK=>0 :Ksl4 

:TE»0tTL30:TR=0 :rem 111 

40 E=0:FEs0:14Ysl:J&=0 :LJ»0tMMs0 :rem 71 

50 LF§=«CHR$(10) :CR§='CHR$(13) jSP$=CHR?(32) :NC=80 :PC 

=0 :rem 144 

60 N$=" " :N1$=" " :N2$=" " :N3§=" " :N4$=" " :A$=" " : Z$=" " :F 

$=i'«",P$=""sPL$=" :rem 221 

70 PR$=" " :R$=" " : TE$=" " :YR$=i" " : El$=" " : E2$=" "i E3§=" " 

iE4§=""iE5$=" :rem 114 

75 F1$="{H0ME}{15 DOWN} "iERl$=" {43 SPACES}": rem 65 
77 F2$=" {H0ME}{13 DOWN}"iF3$=F2§+" {UP} " :rem 43 
80 E6$=" " t E$=" " : SM$=" " » RM$=" " s TM$=" " sUM$=" " :VM$ =" " 
:WM$="":MM$=" irem 6 

90 S$=" " :FORSP=lTONCt S$=S$+SP$ :NEXTi LA$=LEFT$( S$ , 1 

0) :I.B$="":RA$=" :rem 32 

100 DIML$(30),M$(12),NE$(60),DE$(25),OE$(15),CE$(4 
0) :rem 51 

110 DIMNE(60),DE(25),OE(15),CE(40):DIME$(200,6) 

:rem 197 

120 M$ ( 1 ) =" JANUARY" : M$( 2 )= "FEBRUARY" : M$ ( 3 ) = "MARCH " 

:M${4)="APRIL : rem 82 

130 M$(5)="MAY":M$(6)="JUNE":M$(7)="JULY":M$(8)="A 

UGUST ,rem 60 

140 M$(9)="SEPTEMBER":M$(10)="OCTOBER irem 130 

150 M$ ( 1 1 ) = "NOVEMBER " : M$ ( 12 ) = " DECEMBER " : POKEBO ,15: 

P0KEBA,15 :POKE646,0 :rem 31 

160 PRINT"{CLR}{3 DOWN }":PRINTTAB( 17) "EXPENSE": PRI 

NT:PRINT:FORD=1TO5000 :NEXT :rem 35 

170 POKEBO, 14:P0KEBA,6:P0KE646, 14 :rem 209 

180 PRINT"{ CLR} {6 DOWN} " :PRINTTAB( 10 ) "REMOVE PROGR 

AM DISK": PRINT :rem 207 
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190 PRINTTAB(18)"AND":PRINT:PRINTTAB(12)"INSERT DA 
TA DISK": PRINT" {4 DOWN} :reni 115 

200 PRINTTAB( 9)"PRESS ' C TO CONTINUE :reni 200 

210 GETA$ :IPA$<>"C"THEN210 :rein 201 

220 POKEBO , 15 :POKEBA, 15 :POKE646 ,0 :PRINT" { CLR} 

{ 3 DOWN } " I PRINTTAB ( 17 ) "EXPENSE" : PRINT : PRINT 

:rem 219 

230 PRINT "liOADING PERSONAL DATA . " ; : F$ =" PERSDATA 

:reni 162 

240 OPENS , 8 , 8 , " : " + F$ + " , S, R " : INPUT#8 , YR$ , N§ , Nl§ , N2 

$,N3§,N4$ :PRINT" ."; J rem 23 

250 FORJ=lTO30iINPUT#8,L$( J) iNEXTtPRINT" .";:CLOSE 

8:GOSUB2800:IFE>19THEN170 irem 110 

260 P$="EXPDATA" :0PEN8 ,8 ,8, "0: "+F$+" ,S ,R": INPUT#8, 

E1,E2,E3,E4:PRINT" ."; :rem248 
270 F0RJ=1T059:INPUT#8,NE$(J),NE(J) :NEXT:PRINT" 

• : rem 51 

280 F0RJ=1T025:INPUT#8,DE$( J),DE( J) :NEXT :rem 165 
290 PRINT" . :F0RJ=1T015:INPUT#8,0E$( J),0E( J) :NEX 

T:PRINT" ."; sF0RJ=lT039 :reml39 
300 INPUT#8,CE$(J),CE( J) :NEXT:CL0SE8 :GOSUB2800:IFE 

>19THEN170 :rem 162 

310 POKEBO, 15 :POKEBA, 15 :POKE646,0:PRINT"{CLR} 

{3 DOWN} ":PRINTTAB( 17) "EXPENSE :rem 43 

320 PRINTTAB (9)" {DOWN }1. ENTER/CHANGE DATA":PRINTT 

AB(9)"{DOWN}2. VIEW EXPENSE FOR MONTH :rera 31 
330 PRINTTAB (9) "{D0WN)3. VIEW EXPENSE FOR YEAR 

:rem 131 

340 PRINTTAB(9)"{DOWN)4. VIEW EXPENSE BY TYPE":PRI 
NTTAB(9)" {D0WN}5. MAIN MENU : rem 132 

350 PRINTTAB(10)"{4 D0WN}PRESS DESIRED NUMBER 

:rem 106 

360 GETA$ :IFA$=" "THEN360 : rem 85 

370 IFA$<"1"ORA$>"5"THEN360 :rem 196 

380 A;t=VAL(A$) :ONAAGOTO390, 1900, 2860, 3520, 3990 

:rem 10 

390 POKEBO, 15 :P0KEBA,15 :POKE646,0 tPRINT"{CLR} 
{3 DOWN }":PRINTTAB( 11) "ENTER/CHANGE DATA 

:rem 130 

400 PRINTTAB ( 11 )"{ DOWN} 1. START NEV7 MONTH " :PRINTTA 
B(ll)" {D0WN}2. ADD NEW EXPENSE : rem 12 

410 PRINTTAB(11)"{D0WN}3. CORRECTIONS " :PRINTTAB( 11 
)"{D0WN}4. DELETE :rem 70 

420 PRINTTAB(11)"{D0WN}5. EXPENSE MENU" :PRINTTAB( 1 
0)"{4 DOWN}PRESS DESIRED NUMBER : rem 190 

430 GETA$:IFA$=""THEN430 :rem 81 

440 IFA$<"1"ORA$>"5"THEN430 : rem 192 

450 Aj^VAL(A$) :ONAAGOTO460, 520, 1330, 1650, 310 

:rem 139 
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460 PRINT"{CLR} " :PCKEB0,15 :POKEBA,15 :P0KE646,11 sPR i j 

INT "STARTING NEW MONTH : rem 100 > — I 

470 INPUT"MONTH NUMBER (2 DIGITS, 01 TO 12)";MiPRI 
NT:MA=1 :reni 29 

480 P0KEB0,15 :P0KEBA,15 :POKE646,0 :GOSUB490 :GOTO540 J f 

:rem 52 

490 PRINT "CLEARING MEMORY . . " ; :FORZ=lTON : rem 2 53 

500 F0RK=lT06iE$(Z,K)="":NEXT:PRINT" .";:NEXT \ { 

:rein 186 i i 

510 PRINT:RETURN :rein 61 

520 P0KEB0,15 :P0KEBA,15 :POKE646,0 iPRINTTAB ( 13) " 

{CLR){2 DOWN} ADO NEW EXPENSE :rem 193 

530 INPUT"MONTH NUMBER (2 DIGITS, 01 TO 12)";M:G0S 

UB2760:IFE>19THEN310 :rem 31 

540 P0RJ=MAT0N:PRINT"{CLR}{2 D0WN}ALWAYS USE STAND 

ARD TYPE, TO WHOM :rem 127 

550 PRINT"NAME, AND ACCOUNT NO. CODES. ":PRINT:PRIN 

T :rein 141 

560 PRINTTAB(13)" (2 D0WN}ADD NEW EXPENSE" t rem 229 
570 PRINT" {DOWN} ITEM NO. " ;J:PRINTiPRINTtK=l iPRINTL 

$(K) ; trem 140 

580 INPUTE$(J,K) :IFE$(J,K)=""THEN580 srem 57 

590 GOSUB1010:K=2tPRINT"IF DESIRED, PRESS 'T' (RET 

URN) {2 SPACES }FOR :rem 191 

600 PRINT "LIST OF STANDARD TYPES :rem 252 

610 PRINTtPRINTL$(K) ; trem 50 

620 INPUTE$( J,K) :IFE$( J,K)=""THEN620 srem 47 

630 IFE$(J,2)s"T"THBNGOSUB1050:6OTO610 :rem 222 
640 IFE$( J,2)<"0"ORE$(J,2)>"4"THEN620 trem 187 

650 GOSUB1010tEE=VAL(E$(J,2)) :rem 116 

660 K»6:PRINT"IF DESIRED, PRESS ' F' (RETURN) FOR 

trem 55 

670 PRINT "LIST OF STANDARD ACCOUNT NUMBERSsrem 151 
680 PRINT t PRINTL$ ( K) ; trem 57 

690 INPUTE$(J,K) tIFE$(J,K)=""THEN690 trem 61 

700 IFE$(J,6)="F"THENGOSUB1130tGOSUB1010tGOTO680 , 

srem 84 ij 
710 K=3fIFEE=lTHEN920 trem 222 

720 IFEEs2THEN940 srem 237 

730 IFEEs3THBN960 trem 241 

740 IFEE=4THEN980 trem 245 

750 LI/=LEN(E$(J,3)) tIFLL«0THENGOSUB1000sGOTO590 

trem 83 

760 IFLL>15THBNE$(J,3)=LEFT$(E$(J,3),15) trem 204 
770 GOSUBl 01 0tK=4sPRlNT "CHECK NO. OR 'CAS' "; 

trem 11 

780 INPUTE?(J,K) sIFE$(J,K)=""THEN780 srem 61 

790 IFLEN(E$(J,K) )>3THENE$( J,K)=RIGHT$(E$(J,K),3) 

srem 255 

800 GOSUB1010 :rem 218 
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I 810 K=5 :PRINTL$(K) ; i rem 100 

820 INPUTE$(J,K) iIPE$(J,K)=""THEN820 : rem 51 

830 P$»E$( J,K) <GOSUB2830:IFEP=1THEN810 trem 216 
^ 840 Z$=RIGHT$(P$,3) iIFMID$(Z$,l,l)=". "THEN860 

i I :rem 233 

850 PRmTP2$ ; "ERROR— At«JUNT NOT IN X.XX F0RM"sSYS8 
28:PORD=1TO1000:NEXT irem 122 

855 GOSUB 5000:GOTO 810 :rem 243 

860 MA=MA+1:PRINT"{CLR}{7 DOWN } " iPRINTTAB ( 10) "ANOT 
HER ITEM? (Y/N) J rem 128 

870 GETA?:IFA$=""THEN870 :rem 97 

880 IFA$="N"THENJ=N:GOTO900 :rem 115 

890 IFA$<>"Y"THEN870 :rem 122 

900 NE}CT:GOSUB2320:PRINT:GOSUB2510iPRINT:GOSUB2710 
:IFE>19THEN390 :rem 110 

910 GOTO1930 irem 160 

920 F0RJE=1T059:IFNE{ JE)=VAL(E$( J,6) )THENE$( J,3)=N 
E$(JE) :rem 9 

930 NEXT:GOTO750 :rem 234 

940 F0RJE=1T025 t IFDE( JE)-VAL( E$( J ,6) )THENE$( J , 3 )sD 
E$(JE) trem 240 

950 NEXT:GOTO750 :rem 236 

960 F0RJE=1T015:1P0E( JE)=VAL(E${ J,6) )THENE$( J,3)=0 
E$(JE) :rem 7 

970 NEXT:GOTO750 :rem 238 

980 FORTE=lT039tIFCE(JE)=VAL(E$(J,6))THENE$(J,3)sC 
E$(JE) :rem 247 

990 NEXT:6OTO750 trem 240 

1000 PRINT"WRONG COMBINATION": SYS828 tFORD=lTO1000 1 
NEXTtRETURN :rem 247 

1010 PRINT"{CLR} {2 DOWN]ALWAYS USE STANDARD TYPE, 

{ SPACE }T0 WHOM trem 129 

1020 PRINT"NAME, AND ACCOUNT NO. CODES. "tPRINTtPRI 
NT trem 182 

1030 PRINTTAB(13)" {2 D0WN}ADD NEW EXPENSE" trem 14 
1040 PRINT" {DOWN} ITEM NO. " ; J tPRINTtPRINTtRETURN 

trem 206 

1050 PRINT" { CLR} { 2 DOWN} " tPRINTTAB( 8) "STANDARD TYP 
ES OF EXPENSE "t PRINT trem 17 

1060 PRINTTAB( 8 ) "TYPE "TAB( 16 ) "EXPENSE " tPRINT 

trem 236 

1070 PRINTTAB{10)"1"TAB(14)"NOT INCOME TAX DEDUCTI 
BLE trem 112 

1080 PRINTTAB( 10 )"2"TAB( 14) "INCOME TAX DEDUCTIBLE" 
tPRINTTAB(10)"3"TAB(14)"OTHER trem 155 

1090 PRINTTAB (10) " 4"TAB ( 14 ) "CREDITORS " tPRINT tPRINT 

trem 102 

1100 PRINTTAB(9)"PRBSS ' C TO CONTINUE" trem 26 
1110 GETA$ :IFA$<>"C"THEN1110 trem 41 

1120 6OSUB1010t RETURN trem 32 
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1130 PRINT"{CLR}{3 DOWN }": PRINTTAB (8) "STANDARD ACC 

OUNT NUMBERS ":PRINT:LL»0 trem 71 

1 140 PRI NTTAB ( 8 ) "ACT "TAB (13)" EXPENSE " i P RI NT i IFEE= 2 

THEN1200 trem 50 

1150 IFEE=3THEN1230 :rem 69 

1160 IFEE=4THEN1260 :rem 74 

1170 PRINTTAB ( 10) " 1. "TAB ( 13) L$( 25) :LL=LL+1 :F0REX=1 

T059jIPNE$(EX)=" "THEN1190 irem 95 

1180 PRINTTAB(8)NE(EX)TAB(13)NE$(EX) :LIi=IiL+l :IFLL= 

>14THEN6OSUB1290 trem 40 

1190 NEXTtIFEX=60THEN1290 trem 14 

1200 PRINTTAB(10)"2. "TAB(13)L$(26):Ll>=LIrHtFOREX=l 

TO25:IFDE$(EX)=""THEN1220 trem 68 

1210 PRINTTAB(8)DE(EX)TAB(13)DE§(EX) tLI^LL+ltIFLL= 

>14THENGOSUB1290 trem 14 

1220 NEXTiIFEX=26THEN1290 trem 10 

1230 PRINTTAB(10.)"3."TAB(13)L$(27) tLL=IiL+l tFOREX=l 

TO15tIFOE${EX)=""THEN1250 trem 86 

1240 PRINTTAB(8)OE(EX)TAB(13)OE$(EX) :LIj=LL+1 tIFLLs 

>14THEN6OSUB1290 trem 39 

1250 NEXTtIFEXsl6THEN1290 trem 12 

1260 PRINTTAB(10)"4. "TAB( 13) L$( 28) f LIi=LL+l tFOREX=l 

TO39:IFCE$(EX)=""THEN1280 trem 88 

1270 P RINTTAB { 7 ) CE( EX) TAB ( 1 3 )CE$ { EX) : LIi=LI/f 1 1 1 FLL= 

>14THENGOSUB1290 trem 17 

1280 NEXT trem 10 

1290 PRINTtPRINTTAB(9)"PRESS ' C TO CONTINUE 

trem 201 

1300 GETA$tIFA$<>"C"THEN1300 trem 43 

1310 PRINT"{CLR}{3 DOWN}"f PRINTTAB(8)"STANDARD ACC 

OUNT NUMBERS "tPRINTtLL=0 trem 71 

1320 PRINTTAB (8) "ACT "TAB ( 13) "EXPENSE" : PRINT t RETURN 

:GOSUB1010t RETURN trem 46 

1330 PRINT"{CLR}"tPOKEBO,10:PQKEBA,10tPOKE646,l tPR 

INTTAB( 15)" {DOWN} CORRECT IONS "tPRINT trem 77 
1340 PRINT"MONTH NUMBER (2 DIGITS, 01 TO 12)"tINPU 

T"OF REPORT DESIRED" ;M trem 201 

1350 GOSUB2760tIFE>19THEN310 trem 145 

1360 LI;=0 tK=14 tPRINT" { CLR} " tPRINTTAB( 15 )" { DOWN}COR 

RECT IONS "t PRINT trem 80 

1370 PRINT "ITEM NO. "TAB( 10) L$( 18)TAB( 33) L$( 5) iPRIN 

T trem 148 

1380 F0RJ»1T0MA-1 tPRINTTAB(3)JTAB(10)E$(J,3) ; 

trem 141 

1390 PRINTTAB(39-LEN(E$(J,5)))E$(J,5) tIiL=LIrf-l tIFLL 
=>KTHEN1410 trem 52 

1400 NEXTtIFJ=>MATHEN1450 trem 25 

1410 PRINT t PRINTTAB (9) "PRESS 'C TO CONTINUE 

trem 195 

1420 GETA$tIFA$<>"C"THEN1420 trem 49 
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1430 Hr=0:PRINT"{CI.R}"iPRINTTAB(15)" {DOWN} CORRECT I 
0NS":PR1NT :rem 39 

1440 PRINT"ITEM NO. "TAB (10) L$ ( 18) TAB ( 33) L$ ( 5) sPRIN 
TtGOTO1400 trem 202 

1 I 1450 PRINT srem 87 

1460 PRIOTF1§;ER1$;F1§; : INPUT "ITEM NO. TO CORRECT" 
;A$ :reiti 136 

^ 1470 JJ=VAL(A$) :IFJJ<=0ORJJ>MA-1THEN1460 :reml49 

' ' 1480 PRINT" {CLR}": PRINT "CORRECT ITEM ";A$:PRINT 

:rem 228 

1490 PRINT"PRESS RETURN IF NO CHANGE: " :PRINT 

:rem 223 

1500 PRINTL$(1); iPRINTTAB( 16) E$( JJ , 1) ; : INPUTE§( JJ , 

1) I rem 49 
1510 PRINTL$(2); :PRINTTAB( 16) E$( JJ , 2) ; : INPUTE$( JJ , 

2) :rein 53 
1520 PRINTL$(6); :PRINTTAB( 16)E$( JJ,6) ; :INPUTE$(JJ, 

6) :rein 66 

1530 PRINTL$(ia); :PRINTTAB( 16) E$( JJ, 3) ; :INPUTE$(JJ 

,3) :LL=LEN(E$( JJ,3) ) :rem92 
1 540 IFLL> 15THENE$ ( JJ , 3 )=LEFT$ (E$(JJ,3),15) 

:rein 141 

1550 PRINTL$(19) ; :PRINTTAB( 16) E$( JJ , 4) ; :INPUTE§( JJ 
,4) :rem 117 

1560 PRINTF2$;L$(5); :PRINTTAB( 16) E$( JJ , 5) ? : EE$=E$ ( 
JJ,5) :INPUTE$( JJ,5) :rem238 

1570 P$=B$(JJ,5) :GOSUB2830:IPEP=1THENE$(JJ,5)=EE$J 
GOTO 1560 :reni 126 

1589 Z$»RIGHT$(P$,3) :IFMID$ (Z$ ,1 , 1 )=". "THEN1600 

:rein 68 

1590 PRINTF2$ ; "ERROR — AMOUNT NOT IN X.XX FORM": SYS 
828:FORD=1TO1000:NEXT :rem 172 

1595 E$(JJ,5)sEE$ :GOSUB 5000 :GOTO 1560 rrem 44 

1600 PRINT"{CIjR}{7 down }":PRINTTAB( 10) "ANOTHER ITE 
M? (Y/N) J rem 186 

1610 GETA§:IFA$=""THEN1610 :rem 179 

[ 1620 1FA$="Y"THEN1360 :rem 144 

1630 IFA$<>"N"THEN1610 :rem 193 

1640 GOSUB2320:PRINT:GOSUB2510tPRINT:GOSUB2710:GOT 
— 1 0390 :rem 181 

I 1650 PRINT"{CLRl":POKEBO,2:POKEBA,2!PCKE646,l:PRIN 

TTAB(15)" {D0WN}DELETI0NS":FE=1:PRINT : rem 131 
1660 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)":INPU 
*~| T"OF REPORT DESIRED" ;M jrem 206 

1670 GOSUB2760:IFE>19THEN310 trem 150 

1680 LL=0:K=14:PRINT"{CLR}":PRINTTAB(16)" {D0WN}DEL 
ETIONS"tPRINT trem 178 

1 1690 PRINT"ITEM NO. "TAB (10) L$ ( 18) TAB ( 33) L?{ 5) tPRIN 

T trem 153 
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1700 P0RJ=lT0MA-lsPRINTTAB(3) JTAB(10)E$( J,3) ; 

trem 137 

1710 P RINTTAB ( 39-LEN( E$(J,5)))E$(J,5)t LIi=LI/f 1 1 1 FLL 
=>KTHEN1730 :rem 53 

1720 NEXT:IFJ=>MATHEN1770 j rem 35 

1730 PRIMTtPRINTTAB(9)"PRESS ' C TO COIITINUE 

:rein 200 

1740 GETA$>IFA$<>"C"THEN1740 trem 59 

1750 LL=0:PRINT"{CLR}":PRINTTAB(15)" {DOWN} DELETION 

S":PRINT trem 136 

1760 PRINT"ITEM NO. "TAB ( 10) L$ ( 18) TAB ( 33) L$ ( 5) jPRIN 

T:GOTO1720 irem 212 

1770 PRlNTj PRINT "PRESS ' C TO CONTINUE OR ANY KEY 

( SPACE }T0 EXIT trem 186 

1780 GETA$iIFA$»""THEN1780 trem 195 

1790 IFA$<>"C"THBN390 trem 145 

1800 PRINT trem 86 

1810 PRINTF1$;ER1$;F1$; t INPUT "ITEM NO. TO DELETE"; 

A$ trem 40 

1820 JJ»VAL(A$) tIFJJ<»0ORJJ>MA-lTHEN1810 trem 147 
1830 PRINT" {CLR}"tPRINT"DELETE ITEM ";A$ tPRINTtE$( 

JJ,l)="99"tE$(JJ,2)="0 trem 209 

1835 PRINT Fl$;"{3 DOWN} (7 SPACES} PRESS ANY KEY TO 

CONTINUE" trem 17 

1836 GETR$:IF R$="" THEN 1836 trem 233 
1840 E$( JJ , 3) =:"ZZZZZZZZZZZZZZZ " t E$( JJ , 4 ) »" " i E$ ( JJ 

,5)="0.00 trem 224 

1850 E$(JJ,6)="0"fPRINT"{CLR} {7 DOWN} " tPRINTTAB( 10 

) "ANOTHER ITEM? (Y/N) trem 92 

I860 GETA$tIFA$=""THEN1860 trem 193 

1870 IFA?="Y"THENFE=FB+ltGOTO1680 trem 190 

1880 IFA$<>"N"THEN1860 trem 207 

1890 60SUB2 320 tPRINT tG0SUB2 510 tPRINT t MA=MA-FE tGOSU 

B2710 t6OTO390 trem 7 

1900 PRINT " ( CLR } " t POKEBO, 1 5 tPOKEBA, 1 5 iPOKE646 , 1 1 

trem 207 

1910 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)"tINPU 

T"OF REPORT DESIRED" ;M trem 204 

1920 GOSUB490 tYB=0 tGOSUB2760tIFE>19THEN310 trem 48 
1930 P0KEB0,15 :P0KEBA,15 tPOKE646,0 tK=14 tGOSUB2090 : 

F0RJ=1T0MA-1 trem 22 

1940 LK=LEN(E$(J,3) ) tIFLK> 15THENE$ ( J,3 )=LEFT$ ( E$ ( J 

,3), 15) trem 157 

1950 IFM>9THENZ$«'STR$(M) tPRINTMID$(Z$;2)SPC(l)E$( J 

,1); tGOTO1970 trem 1 

1960 PRINTM;E$( J,l) ; trem 129 

1970 PR1NTTAB(6)E$(J,2)TAB{8)E$(J,6)TAB(12)E$(J,3) 

TAB(27)E$(J,4)TAB(31)"$"; trem 246 

1 980 P RINTTAB ( 39-LEN( E$(J,5)))E$(J,5)f LL=LLf 1 1 1 FLL 

»>KTHEN2000 trem 53 
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1990 NEXTtIFJ»>MATHBN2030 srem 34 

2000 PRINT :PRINTTAB( 9) "PRESS ' C TO CONTINUE 

:rem 191 

2010 6ETA$tIFA$<>"C''THEN2010 trem 41 

2020 GOSUB2090:GOTO1990 :rem 85 

2030 PRINTTAB(31)"E8 T3"iPRINTTAB(21)L$( 17)" 
{3 SPACES}?"; »PRINTTAB(39-LEN(TE§))TE$ 

:rem 138 

2040 PRINT" {2 DOWNlHARD COPY (Y/N) ? :rem 87 

2050 GETA$:IFA$=""THEN2050 :rem 177 

2060 IFA$="N"THEN310 irem 78 

2070 IPA$<>"Y"THEN2050 :rem 202 

2080 GOTO2130 trem 201 

2090 Pl^203+10*M :LL=0 jP RINT " {CLR } " t PRINTN$ TAB ( 35 ) P 
N:PRINT"{UP}"M$(M)+" "+YR$ :rem 150 

2100 PRINTTAB( 17) "EXPENSE" :PRINTTAB( 17 )"B7 Tl 

:rein 42 

2110 PRINT"DATE"TAB(5)"TY"TAB(8)"ACT"TAB(12)"TO WH 
OM"TAB( 27) "CHE "TAB (33) "AMOUNT : rem 83 

2120 FORL=lT039:PRINT"BTi" ; :NEXTj PRINT: RETURN 

:rem 184 

2130 0PEN4 ,4,1: P]»»2 03+1 0*M :LB$=£.EFT$ ( S$ , 56-LEN( N$ ) 
) :PRINT#4,LA$;N$;LB$;PN;IiF$ :rein 155 

2140 PRINT#4,LA$;M$(M)+" "+YR$ ;LF$ ;LF$ :rem 29 

2150 LB$=LEFT$(S$,37) :PRINT#4 ,LB$ ; "EXPENSE" ;LF$ :PR 
INT#4,LB$;"i5 Tl";LF$ :rem 131 

2160 PRINT#4,LA$ ; "DATE{3 SPACES }TY{ 3 SPACES } ACT 

{3 SPACES }T0 WH0M{14 SPACES }CHE " ; :rem 149 

2170 LB$=LEFT$( S$ ,12) :PRINT#4 ,1.B$ ; "AMOUNT" ;LF$ 

trem 159 

2180 PRINT#4 ,LA$ ; :FORIj=1T045 :PRINT#4 , "gTl" ; :NEXT:P 

RINT#4,LF$;LF$:F0RJ=1T0MA--1 :rem 236 

2190 GOSUB2300:PRINT#4,RA$;M;E$( J,l) ;" {3 SPACES}"; 

E$(J,2); :rem 141 

2200 RA$=LEFT$(S$,6-LEN(E$( J,6) ) ) :PRINT#4,RA$ ;E$( J 

,6) ; srem 209 

2210 LB$=LEFT$(S$,3) :PRINT#4,LB$;E$( J,3) ; : rem 255 
2220 RA$»LEFT$(S$,24-LEN(E$(J,3))-LEN(E$(J,4))) :PR 

INT#4,RA$;E?(J,4) ; :rem 191 

2230 LB$=LEPT$(S$,4) :PRINT#4,LB$;"$"; :rem 7 

2240 RA$=LEFT$ ( S$ , 1 3-LEN( E? ( J , 5 ) ) ) :PRINT#4 , RA$ ; E$ ( 

J,5) ;LF$:NEXTtIFJ=MATHEN2250 :rem6 
2250 LB$=LEFT$(S$,5 5) :PRINT#4,LB$;"ill Tr';LF$ 

:rem 210 

2260 LB$=LEFT${S$,47) :PRINT#4 ,LB$ ;L$( 17) ;" 

{4 SPACES}?"; :rem 165 

2270 RA$=LEFT$(S$,13-LEN(TE$)) :PRINT#4 , RA$ ; TE$ ;LF$ 

:rem 106 

2280 LB$=LEFT$(S$,55) :PRINT#4,LB$;"ill Tl";CR$;:PR 
INT#4,LB$;"DDDDDDDDDDD :rem 216 
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2290 F0RSP=1T012 :PRINT#4,LF$ :NEXT:PRINT#4 :CL0SE4 :G 
OTO310 :rem 77 

2300 MM$=STR$(M) :IELEPT$(MM$,1)=" "THENMM$=MID$ (MM 
$,2) :rem 21 

2310 RA$=LEFT$(S$,11-LEN(MM?)) :RETURN : rem 148 

2320 PRINT" {3 DOWN}SUMMING . . :TE=0:TL=0:TR=0:TE 
$=""tFORJ=lTOMA-l:PRINT" ."; :reni 170 

2330 P$=E$(J,5) :GOSUB2360:TR=TR+PR:TL=TL+PL:NEXT 

:rem 234 

2340 TE=TIi+TRiIFTE=€ITHENTE$="0 .00": RETURN : rem 36 
2350 TE$=STR$(TE+.001) :TE$=LEFT$ ( TE$ ,LEN( TE$ ) -1 ) :R 

ETURN :rem 215 

2360 PL$=IjEFT§ ( P$ ,LEN( P$ ) -3 ) :PL=VAL( PL$ ) s rem 19 
2370 PR$=RIGHT$(P$,3) jPR=VAL(PR$) jIFPL<0THENPI^PR* 

-1 :rem 177 

2380 RETURN trem 173 

2390 TE=0 :TL=0:TR=0:TY$="":FORJ=lTOM3f-ljIFVAL(E$( J 

,2) }<>TYTHEN2410 :rem 240 

2400 P$=E$( J,5) tGOSUB2360 :TR»TR-l-PR:TIi=TIi+PL 

:rem 111 

2 41 NEXT : TE>=TIi+TR: I FTE=0THENTY? ="0.00": RETURN 

:rem 175 

2420 Ty$=STR$(TE+.001) :TY$=LEPT$(TY$ ,LEN(TY$) -1) : R 

ETURN :rem 37 

2430 TE^ : TL=0 : TR^ : TE$=" " :F0RJ=1T0MY-1 : P$=E$ ( J , 5 ) 

:GOSUB2360 :rem 48 

2440 TI>=TLfPL:TR=TR+PR:NE>CT:TB=TI>TR:IFTE=0THENTE$ 

="0.00": RETURN :rem 172 

2450 TE$=STR$(TE+.001) :TE$=LEFT$(TE$,LEN(TE$)-1) :R 

ETURN :rem 216 

2460 TE=0:TIr=0:TR=0:P$=E$(JC,5) :6OSUB2360tT]>PL-l : 

TR=PR+1:P$=E5$ :rem 51 

2470 GOSUB2360 : TI>=TI/4-PL: TI^TR+PR:TE=TI/f TR: IFTE=0TH 

ENE$(JC, 5) ="0.00": RETURN :rem 166 

2480 IFTE<0THENE$(JC,5)=STR$(TE- .001) : rem 105 

2490 IFrE>0THENE$( JC,5)=STR$(TE+.001) : rem 106 

2500 E$(JC,5)=LEFT$(E$(JC,5),LEN(E$(JC,5))-1) :RETU 

RN :rem 112 

2510 IFMA=<2THEN2610 :rem 136 

2520 PRINT "NOW SORTING . . " ; :PORJJ=lTOMA-2 :FORKK=J 

J+lTOMA-1 :rem 113 

2530 IFE$(KK,1) >E$(JJ,1)THEN2600 : rem 230 

2540 SM$=E$(KK,l):RM$=E$(KK,2):TM$=E$(KK,3):rem 76 
2550 UM$=E$(KK,4) :VM$=E$(KK,5) :WM$=E$(KK,6) :rem 95 
2560 E$(KK,1)=E$(JJ,1) :E$(KK,2)=E$(JJ,2) :E$(KK,3)= 

E$(JJ,3) :rem 6 

2570 E$(KK,4)=E$(JJ,4) :E$(KK,5)=E$(JJ,5) :E$(KK,6)= 

E$(JJ,6) trem 25 

2580 E$(JJ,l)=SM$:E$(JJ,2)=RM$:E$(JJ,3)=TM$:rem 74 
2590 E§( JJ,4)=UM$ :E$( JJ,5)=VM$ :E$( JJ,6)=WM§ :rem 93 
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2600 
2610 
2620 
2630 

2640 

2650 

2660 
2670 
2680 
2690 
2700 
2710 

2720 

2730 

2740 
2750 
2760 

2770 

2780 
2790 
2800 
2810 

2820 
2830 

2840 

2850 
2860 
2870 

2880 

2890 

2900 

2910 
2920 
2930 



NEXT : PRINT " . " ; : NEXT 
RETURN 

IFMY=2THEN2700 
PORJJ=lTOM5f-2 jPRINT" 



I rem 244 
:rem 169 
:rem 102 
"; sFORKK=JJ+lTOMY-l :IFE 



$(KK,3)>E$(JJ,3)THEN2690 : rem 190 

SM$-E$(KK,3) :RM$sE$(KK,4) :TM$sE$ ( KK,5 ) :UM$=E$ 
(KK,6) :VM$»E$(KK,2) t rem 46 

E$(KK,3)=E$(JJ,3) :E$(KK,4)=E$( JJ,4) jE$(KK,5)= 
E$(JJ,5) :rem 18 

E$(KK,6)=E$( JJ,6) :E${KK,2)=E$( JJ,2) : rem 62 
E$( JJ , 3 )=SM$ : E$ ( JJ , 4 )=RM$ : E$( JJ « 5 }-TM$ t rem 80 
E$( JJ,6)»UM$ :E$( JJ,2)=VM$ :rem 109 

NEXT:NEXT trem 137 

RETURN :rem 169 

P RINT "I'M saving! 2 SPACES } . . " ; i P$ = " EXPENSE " + 
M$(M)tOPEN15,8,15:PRINT#15,"S0:''-fF$ :rem 8 
CLOSE15»OPEN8,8,8, "0 : "+F$+" ,S,W" :PRINT#8 , Y", " 
MA", "M", "TE$", "N$CHR$( 13) :rem 26 

P0RTB=1T0MA-1 :F0RKB=1T06 :PRINT#8 ,E§( JB,KB ) ", " 
iNEXT:PRINT" .";:NEXT :rem 84 

CL0SE8 :YE=0 :6OSUB2800 trem 68 

RETURN :rem 174 

PRINT jPRINT "LOADING ."; :F$="EXPBNSE"+M$ (M) :0P 
EN8,8,8,"0:"+F$+",S,R :rem 106 

INPUT#8 ,Y, MA, M,TE$ ,N$ :F0RJB=1T0MA-1 jFORKB=lTO 
6:INPUT#8,E$( JB,KB} (NEXT :rem 98 

PBIOT" .";»NEXT irem 132 

CLOSES tGOSUB2800! RETURN :rem 30 

E=^sOPEN15,8,15:INPUT#15,E,E$ trem 157 

IFE> 19THENPRINTt PRINTER tSYS828 :FORD=1TO5000 tN 
EXT trem 194 

CLOSEl 5 t RETURN trem 194 

EP=0tLl=LEN(P$) tFORL=lTOUtT$=MID$(P$,L,l) tAB 
=ASC(T$) iIFAB=46THENNEXT trem 218 

IFAB<480RAB>57THBNL=U tEF»l tGOSUB 5000 tPRINTF 
2$; "ERROR IN INPUT"t SYS828 trem 171 

GOSUB 5000 t NEXT t RETURN trem 167 

POKEBO,15tPOKEBA,15tPOKE646,lltTY=0 trem 139 
PRINT" {CLR}"tPRINTtPRINT "EXPENSE FOR ";YR§tYR 
=VAL(YR$) tIFYE=lTHEN3140 treml 
GOSUB490tPRINT:PRINT "LOADING EXPENSE FORt "tM= 
1 trem 237 

F$s"EXPENSE"-»-M$(M) tPRINTM$(M), tOPENS ,8 ,8, "0 1 " 
+F$+",S,R trem 55 

INPUT#8 ,Y, MY, M,TE$ , N$ t JB=1 1 LJ=0 tF0RJE>=lT06 t IN 
PUT#8,E$( JB,JE) tNEXT trem 64 

IFMY=<2THEN2990 jrem 175 

F0RJD=2T0MY-1 trem 88 

R$=CHR$ ( 1 3 ) f INPUT#8 , El$ , R$ , E2$ , R? , E3$ , R? , E4$ , 
R$,E5$,R$,E6$,R$ trem 219 
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2940 P0RJC=1T0JD: IFE$( JC , 6 )=E6$THENGOSUB2460 j LJ=L J 

+l:JC=JD:NEXTsGOTO2980 :rem 251 

2950 NEXT :rem 15 

2960 JB=JB+1:E${ JB,1)=E1$ :E$ ( JB, 2 )=E2$ :E§ ( JB, 3 ) =E3 

$:E$(JB,4)=E4$!E$(JB,5)=<E5$ trem 26 

2970 E$(JB,6)-E6$ :rein 86 

2980 NEXT: MY»MY-LJ trem 152 

2990 CLOSES :GOSUB2800:IFE>19THEN310 trem 127 

3000 0PEN15,8,15 tFORM=2T012iF$-"EXPENSE"+M$(M) tOPE 

N8,8,8, "0:"+F$+",S,R trem 208 

3010 INPUT#8 ,Y, MA, M, TE$ , N$ t INPUT* 15 ,E , E§ f IFE>19THE 

NM=12 tGOTO3080 trem 87 

3020 PRINTM$(M), tFORJ&slTOMA-l trem 55 

3030 R$»CHR$(13) tINPUT#8,El$,R$,E2$,R$,E3$,R$,E4$, 

R$,E5$,R$,E6$,R$ trem 211 

3040 FORJC=lTOMr-ltIFE$(JC,6)=E6$THENGOSUB2460tJG» 

MY-1 tNEXTtGOTO3070 trem 215 

3050 NEXTtE$(MY,l)=El$tE$(MY,2)=E2$tE$(MY,3)=E3$ 

trem 119 

3060 E$ (MY , 4)=E4$ t E$ (MY , 5 )sE5$ t E$ (MY , 6 )sE6$ t MY=MY-I- 

1 trem 48 

3070 NEXT trem 9 

3080 CLOSES tNEXTtCLOSE15tGOSUB2430tPRINTtPRINT" 

{DOWN} SAVING trem 159 

3090 F$s"EXPENSE"+" "-l-YR? tOPEN15,8,15 trem 

3100 PRINT#15, "S0t"+P$tCLOSE15tOPEN8,8,8,"0:"'+F$+" 

,S,W trem 220 

3110 PRINT#8,YR", "MY", "TE$", "N$CHR?(13) tGOSUB2620t 

FORKK=lTOMY-l trem 175 

3120 PRINT#8,E${KK,2)", "E$(KK,3)", "E$(KK,4)", "E§(K 

K,5)", "E$(KK,6)CHR$(13) trem 192 

3130 NEXTtCL0SE8tYB»ltSYS828 trem 15 

3140 IFrY<>0THEN3600 trem 166 

3150 PRINT" { CLR) "tPOKEBO, 15 tP0KEBA,15 tP0KE646 ,0 tPR 

INTN$; tPN=150 trem 187 

3160 PRINTTAB(35)PNtPRINT trem 76 

3170 PRINTTAB( 11) "EXPENSE FOR " ;YR$ tPRINTTAB ( 11) " 

B16 Tl trem 210 

3180 PRINT"ACT"TAB(S)"TO WHOM PAID"TAB( 23)TAB( 33 ) " 

AMOUNT" trem 69 

3190 F0RL-lT039tPRINT"iT|";tNEXTt PRINT trem 166 
3200 LL=^fK=14tF0RJB=lT0MY-l trem 179 

3210 LK=LEN( E$ ( JB, 3 ) ) tIFLK> 15TBffiNE$ ( JB, 3 )=LEFT§ ( E$ 

(JB,3),15) trem 91 

3220 PRINTE$( JB,6)TAB(5)E$( JB,3)TAB(2S)"$" ; tPRINTT 

AB(39-LEN(E$(JB,5) ))E$(JB,5) trem 57 

3230 LL=LL+ltIFLL=>KTHEN3250 trem 177 

3240 NEXTiZFJB»MYTHE:N3320 trem 55 

3250 PRINT tPRINTTAB (9) "PRESS ' C TO CONTINUE 

trem 199 
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3260 GETA$:IFA$<>"C"THEN3260 j rem 57 

3270 LL=0tPRINT"{CLR}":PRINTN$ :PRINT:PRINTTAB( 11) " 

EXPENSE FOR " ;YR$ :rem 13 

3280 PRINTTAB(ll)"il6 Tl"" jrem 122 

3290 PRINT"ACT"TAB(5)"T0 WHOM PAID"TAB( 23)TAB( 33)" 

AMOUNT" :rem 71 

3300 F0RL=1T039 :PRINT"iTr' ; jNEXT:PRINT : rem 159 
3310 GOTO3240 trem 201 

3320 PRINTTAB(28)"gll T3" iPRINTTAB ( 20) L$ ( 17 ) " 

{2 SPACES}?"; I rem 73 

3330 PRINTTAB(39-LEN(TE$) )TE$ :rem 193 

3340 PRINT" {DOWN}HARD COPY (Y/N) ? jrem 74 

3350 GETA$:IFA$=""THEN3350 :rem 185 

3360 IPA$="N"THEN310 srem 82 

3370 IFA$<>"Y"THEN3350 : rem 210 

3380 0PEN4,4,1 :PI!^150:LB$=LEFT$( S$ ,56-LEN(N$)) sPRI 

NT#4,LA§;N$;LB$;PN;LF$;LF$ :rem 146 

3390 LB$=LEFT§( S$, 34) :PRINT#4,LB$; "EXPENSE FOR ";Y 

R$;LF$ :rem 221 

3400 PRINT#4,LB$;"il2 Tl" ;LF$ :PRINT#4,LA§ ;"ACT 

(5 SPACES }T0 WHOM PAID"; :rem 38 

3410 LB$=LEFT$(S$,24) jPRINT#4,LB$;"{10 SPACES)AM0U 

NT";LF§ ,rem 160 

3420 PRINT#4 ,LA$ ; :F0RL=1T045 :PRINT#4 , "gT|" ; jNEXTiP 

RINT#4,LF$;LF$»F0MB=1T0MY-1 irem 68 

3430 RA$=LEPT§(S$,13-LEN(E$(JB,6)))»PRINT#4,RA$;E$ 

(JB,6); :rem 137 

3440 LB$=LEFT$(S$,5)iPRINT#4,LB$;E$(JB,3); :rem 73 
3450 RA$=LEFT$(S$,38-LEN(E$(JB,3))) :PRINT#4,RA$;"$ 

"; srem 79 

3460 LB$sIiEFT$(S$,13-LEN(E$(JB,5))) :PRINT#4 ,LB$ ; E$ 

(JB,5) ;LF$ jNEXT : rem 175 

3470 LB$=LEFT§(S$,55) :PRINT#4,LB§;"gll T3";LF§ 

:rem 215 

3480 LB$=LEFT$(S$,48) tPRINT#4 ,LB$ ;L$( 17) ;" 

{3 SPACES)?"; :rem 171 

3490 RA$=LEFT$(S$,13-LEN(TE$)) :PRINT#4 , RA$ ; TE$ ;LF$ 

:rem 111 

3500 LB$=LEFT$(S$,55) :PRINT#4,LB$;"gll Tl";CR§;:PR 
INT»4 ,LB$ ; " DDDDDDDDDDD :rem 212 

3510 F0RSP!=1T012 :PRINT#4,LF$ :NEXT:PRINT#4 :CL0SE4 :G 
OTO310 :rem 73 

3520 PRINT"{CLRl{3 DOWN) " jPRINTTAB( 8) "STANDARD TYP 
ES OF EXPENSE"tPRINT :rem 38 

3530 PRINTTAB{ 10 ) "TYPE "TAB ( 18) "EXPENSE " : PRINT 

srem 27 

3540 PRINTTAB (1 2 )"1 "TAB (16) "NON-DEDUCTIBLE "srem 25 
3550 PRINTTAB (12)" {D0VJN)2"TAB (16)" DEDUCTIBLE" sPRIN 
TTAB( 12 )"{ DOWN) 3"TAB( 16) "OTHER srem 33 
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3560 PRINTTAB(12)" { DOWN 14"TAB( 16) "CREDITORS": PRINT 
:PRI11TTAB(11)"{2 DOWN} PRESS TYPE NUMBER 

:rein 229 

35 70 GETA$:IFA$=""THEN35 70 : rem 193 

3580 IFA$<" 1"ORA$>"4"THEN3570 :rem 47 \ [ 

3590 TY=VAL(A$) :PRINT"{CLR}":IFYE=0THEN2870 ' — 

:rem 198 

3600 PRINT"{CLR} ":P0KEB0,15 :P0KEBA,15 :POKE646,0 :PN , , 

=530+TY*2:PRINTN$TAB(35)PN :rem 228 I 1 

3610 PRINT" {UP} "L$(TY+24) :PRINT:PRINTTAB( 11 ) "EXPEN 

SE FOR ";YR$ :reni 144 

3620 PRINTTAB(ll)"il6 T3 :rem 52 

3630 PRINT"ACT"TAB(5)"T0 WHOM PAID"TAB( 23)TAB( 33 ) " 

AMOUNT" irem 69 

3640 PORL=lT039:PRINT"iT3" ; :NEXT: PRINT :rein 166 
3650 LL=0 :K=14 :F0RJB=1T0MY-1 : IFVAL( E$( JB, 2) ) oTYTH 

EN3690 :rein 133 

3660 LK=LEN( E$( JB, 3) ) :IPLK> 15THENE$( JB, 3 )=LEFT$( E$ 

(JB,3),15) irem 100 

3670 PRINTE§(JB,6)TAB(5)E$(JB,3)TAB(28)"$"; :PRINTT 

AB(39-LEN(E$( JB,5) ) )E$( JB,5) : rem 66 

3680 LIi=LIH-lsIFLIr=>KTHBN3700 trem 186 

3690 NEXT:IFJB=MYTHEN3770 :rem 73 

3700 PRINT:PRINTTAB{9)"PRESS ' C TO CONTINUE 

:rem 199 

3710 GETA$:IFA$<>"C"THEN3710 :rem 57 

3720 LD=0:PRINT"{CLR}":PRINTN$; :PN=530+TY*2iPRINTT 

AB(35)PN:PRINT"{UP} "L$(TY+24) :PRINT :rem 27 
3730 PRINTTAB( 11) "EXPENSE FOR " ; YR§ :PRINTTAB (11) " 

B16 T| :rem 212 

3740 PR1NT"ACT"TAB(5)"T0 WHOM PAID"TAB( 23)TAB( 33 ) " 

AMOUNT" :rem 71 

3750 FORL=lT039:PRINT"iTl" ; :NEXT:PRINT :rem 168 
3760 GOTO3690 :rem 219 

3770 PRINTTAB(28)" Ell Tl" :GOSUB2390 iPRINTTAB (20) L$ 

(17)" {2 SPACES} :rem 218 
3780 PRINTTAB (39-LEN( TY$) )TY$ : rem 242 | i 

3790 PRINT" {DOWN} HARD COPY (Y/N) ? : rem 83 ^ — > 

3800 GETA? :IFA$=""THEN3800 : rem 185 

3810 IFA$="N"THEN310 irem 82 

3820 IFA$<>"Y"THEN3800 :rem 210 ) ( 

3830 0PEN4,4,1 :PN=530+TY*2:LB$=LEFT§(S$,56-LEN(N$) 

) iPRINT#4,LA$;N$;LB$;PN;LF$ :rem 215 
3840 PRINT#4,LA$;L$(TY+24) ;LF$;LF$ srem 172 \ i 
3850 LB$=LEPr$ (S$, 34) :PRINT#4, LB?; "EXPENSE FOR ";Y * 1 

R$?LF? :rem 222 

3860 PRINT#4,LB$;"il2 Tl" ;LF$ :PRINT#4,IiA$ ;"ACT 

{5 SPACES }T0 WHOM PAID"; jrem 48 

3870 LB$=LEFT$(S$,24) :PRINT#4,LB$;" {10 SPACES}AMOU 

*T";LP$ srem 170 
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3880 PRINT#4,LA$ ; :FORL=lT045 :PRINT#4, "iT|" ; :NEXT:P 

RINT#4,LF$;LF$:F0RJB=1T0MY-1 :rem 78 

3890 IFVAL(E$( JB,2) )<>TYTHEN3940 : rem 97 

3900 RA$=LEFT$(S$,13-LEN(E$(JB,6) )) :PRINT#4 , RA$ ; E$ 

( JB,6) ; :rem 139 

3910 LB$=LEFT§(S$,5) jPRINT#4,LB$;E$(JB,3) ; srem 75 
3920 RA$=LEFT$(S$,38-LEN(E$(JB,3) )) :PRINT#4,RA$;"$ 

"; trem 81 

3930 LB$=LEFT?(S$,13-LEN(E$(JB,5) )) :PRINT#4,LB$;E$ 

(JB,5) ;LF$ :rem 56 

3940 NEXT:LB$=LEFT$(S$,55) :PRINT#4,LB$;"gll T3" ;LF 

$ :rein 82 

3950 LB$=LEFT$(S$,48) jPRINT#4 ,LB$ ;L$ ( 17) 

{3 SPACES}?"; :rem 173 

3960 RA$=LEPT${S$,13-LEN(TY$) ) iPRINT#4 ,RA$ ;TY$ ;LF$ 

:rem 153 

3970 LB$=LEFT$(S$,55) :PRINT#4,LB$;"ill Tl";CR$;:PR 

INT#4 ,LB$ ; " DDDDDDDDDDD :rem 223 

3980 F0RSP=1T012 iPRINT#4,LF$ :NEXT:PRINT#4 :CL0SE4 :G 

OTO310 :rem 84 

3990 POKEBO,14:POKEBA,6 :P0KE646,14 trem 14 

4000 PRINT" {CLR} {6 DOWN } ":PRINTTAB ( 12) "REMOVE DATA 
DISK"jPRINT :rem 254 

4010 PRINTTAB( 18) "AND":PRINT:PRINTTAB( 10) "INSERT P 

ROGRAM DISK" :PRINT"l4 DOWN} :rera 154 

4020 PRINTTAB(9)"PRESS ' C TO CONTINUE :rem 252 
4030 GETA$jIPA$=""THEN4030 :rein 177 

4040 IFA$<>"C"THEN4030 : rem 179 

4050 POKE631 ,83 :PQKE632,89 :POKE633,83 :rem 102 

4060 POKE634,53 :POKE635,49 :POKE636,48 :POKE637 ,48 :P 

OKE638,48:POKE639,13 :rem 72 

4070 P0KE198,9:NEW trem 37 

5000 REM FORMAT trem 114 

5010 PRINT F1$;ER1$;F2$;ER1$;F3§:RETURN trem 5 



ADJUSTMENTS 

Remember to use the name above for the program you place on the PAM master disk. 

20 DIML§(30),M$(12) :DIMTR$(150,4) :DIMAD$ ( 100,4) 

trem 213 

30 DIMPW$(40),IT$(10),DI$(10),TF$(9),TG$(9) tN=150t 
MT=ltMA=l trem 164 

40 BO=53280:BA=53281 :F1=>0 tDl=0 1 11=0 tPN-0 tFL=0 

trem 10 

50 DIMFW(40),IT(10),DI(10) trem 119 

60 NN$= " - " t AT$= " " t SM$ = " " t RM$ = " " t TM$= " " t UM$= " 

trem 36 

70 N$=""fNl$="":N2$=""fN3$=""tN4$=""tLL$=" trem 45 
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75 P1$="{H0ME}{15 D0WN}":ER1$="{43 SPACES} "s rem 65 
77 F2§="{H0ME}{13 DOWN} " :F3$=F2$+" {2 UP} " :F4$=F1$+ 
"{6 DOWN}" trem 65 

80 LF$=CHR$(10) :CR$=CHR$(13) : SP$=CHR$( 32) :NC=80:PC 
=0 :rein 147 

90 S$=" " : F0RSP=1T0NC : S$=S$+SP$ : NEXT: LA$=LEFT$ ( S$ , 1 
0) :LB$="":RA$=" :rera 32 

100 M$ ( 1 ) =" JANUARY" : M$ ( 2 )= "FEBRUARY" : M$ ( 3 )= "MARCH " 

:M$(4) = "APRIL :reni 80 

110 M$ ( 5 ) ="MAY" : M$ ( 6 ) =" JUNE " : M$ ( 7 ) =" JULY" : M$ ( 8 )="A 

UGUST :rem 58 

120 M$(9)="SEPTEMBER":M$(10)="OCTOBER irem 128 

130 M$ ( 1 1 ) = " NOVEMBE R " : M$ ( 1 2 ) = " DECEMBE R":P0KEB0,2:P 

0KEBA,2:P0KE646,1 :rem 182 

140 PRINT"{CLR}{3 DOWN} " :PRINTTAB ( 14) "ADJUSTMENTS" 

:FORD=1TO5000:NEXT :rein 202 

150 POKEBO,14:POKEBA,6:POKE646,14 :rein 207 

160 PRINT"{CLR}{6 DOWN} " :PRI NTT AB( 10 ) "REMOVE PROGR 

AM DISK": PRINT : rem 205 

170 PRINTTAB (18) "AND" :PRINT:PRINTTAB( 12) "INSERT DA 

TA DISK" :PRINT:PRINT" {4 DOWN} :rein 56 

180 PRINTTAB(9)"PRESS 'C TO CONTINUE :rem 207 

190 GETA$:IFA$<>"C"THEN190 :rem 215 

200 POKEBO,12iPOKEBA,12tPOKE646,l : rem 194 

210 PRINT"{CLR}{2 DOWN} ": PRINTTAB ( 14) "ADJUSTMENTS" 

:PRINT:PRINT :rem 145 

220 PRINT "LOADING PERSONAL DATA " ; :F$="PERSDATA 

:rem 115 

230 OPENS , 8 , 8 , " : " +F$+ " , S , R " : INPUT#8 , YR$ , N$ , Nl $ , N2 

$,N3$,N4$:PRINT" ."; srem 22 

240 FORJ=1TO30:INPUT#8,L$( J) :NEXT:PRINT" .";:CLOSE 

8:GOSUB3670:IFE>19THEN150 :rem 113 

250 F$= " INCDATA " :0PEN8 , 8 , 8 , " : " +F$+ " , S , R " : INPUT#8 , 

F1,D1,I1:PRINT" ."; :rem 64 

260 F0RJ=1T039:INPUT#8,FW$(J),FW(J) :NEXT:PRINT" ." 

' :rem 68 

270 F0RJ=1T09:INPUT#8,IT$(J) ,IT(J) :NEXT :rem 158 
280 PRINT" . "; :F0RJ=1T09:INPUT#8,DI$( J),DI(J) :NEXT 

:PRINT" .";:CL0SE8 : rem 79 

290 GOSUB3670:IPE>19THEN150 :rem 102 

300 POKEBO , 4 : POKEBA, 4 : POKE646 , 1 : PRINT" { CLR} 

{3 DOWN} ":PRINTTAB( 14) "ADJUSTMENTS :rem 254 
310 PRINTTAB(12)"{DOWN}l .{2 SPACES } ADJUSTMENTS ": PR 

INTTAB(12)" {DOWN}2.{2 SPACES }TRANSFERS :rem 79 
320 PRINTTAB(12)"{DOWN}3.{2 SPACES}DISPLAY" iPRINTT 

AB(12)"{DOWN}4.{2 SPACES }MAIN MENU :rem 186 
330 PRINTTAB(10)" {4 DOWN}PRESS DESIRED NUMBER 

:rem 104 

340 GETA$:IPA$=""THEN340 :rem 81 

350 IFA$<"1"ORA$>"4"THEN340 rrem 191 
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^ 360 AA=VAL(A$) :ONAAGOTO510, 1800, 430, 3790 irem208 

' 1 370 PRINTTAB( 12) "ENTER/CHANGE DATA" : PRINTTAB ( 11 ) " 

{D0WN}1.{2 SPACES} ADD NEW ITEM : rem 40 

380 PRINTTAB (11)" {DOWN} 2. {2 SPACES }CORRECTIONS ": PR 

INTTAB(11)"{D0WN}3.{2 SPACES}DELETE :rem 74 
390 PRINTTAB(ll)" {D0WN}4.{2 SPACES}RETURN TO MENU" 
:PRINTTAB(10)"{4 DOWN} PRESS DESIRED NUMBER 
<^ :rein 46 

I \ 400 GETA$:IFA$=""THEN400 :rem 75 

410 IFA$<"1"ORA$>"4"THEN400 :reni 185 

420 AA=VAL(A$) : RETURN :rem 8 

430 POKEBO , 4 : POKEBA , 4 s P0KE646 , 1 : P RI NT " { CLR } 

{2 DOWN} ":PRINT:PRINTTAB( 16) "DISPLAY :rem 126 
440 PRINTTAB(4)"{D0WN}1.{2 SPACES} INDIVIDUAL ADJUS 
TMENT ITEMS :rem 125 

450 PRINTTAB (4)" {DOWN} 2. {2 SPACES} SUMMARY OF ADJUS 
TMENTS :rem 42 

460 PRINTTAB (4)" {DOWN} 3. {2 SPACES } INDIVIDUAL TRANS 
FER ITEMS :rem 231 

470 PRINTTAB(4)"{DOWN}4.{2 SPACES} SUMMARY OF TRANS 
FERS":PRINTTAB(9)"{2 DOWN} PRESS DESIRED NUMBER 

:rem 120 

480 GETA$ : IFA$=" "THEN480 :rein 91 

490 IFA$<"1"ORA$>"4"THEN480 :reni 201 

500 AA=VAL(A$) :ONAA6OTO1240, 1390, 2610, 2760 :rem 47 
510 POKEBO, 11 :POKEBA, 11 JPOKE64 6,1 :rem 196 

520 PRINT" {CLR} {2 DOWN} " i PRINT "ADJUSTMENTS ": PRINT: 

PRINT :G0SUB3 70 trem 92 

530 ONAAGOTO540, 780, 1040, 300 :rein 4 

540 POKEBO,9:POKEBA,9:POKE646,l :rem 117 

550 GOSUB770 :GOSUB3620 :0PEN15 ,8,15: INPUT#15 ,E , E$ :C 

LOSE15:GOSUB770 :rem 204 

560 FORJ=MATON: PRINT "ITEM NO. " ; J:PRINT:K=1 : rem 204 
570 PRINT "ENTER DATE (MONTH 2 DIGITS, DAY 2 

:rem 199 

580 PRINT "DIGITS) .{2 SPACES } SAMPLE : 0324 FOR MARCH 
24":PRINT:INPUT"DATE";AD$(J,K) irem 239 

'- - 590 K=2 :rem 88 

600 PRINTF3$; :INPUT"DISPOSITION CODE AFFECTED: " ;AD 
— , $(J,K) :FL=0:FORZ=1TO9 i rem 217 

, J 610 LL$=LEFT$(DI$(Z),3) :IFLL$=AD$(J,K)THENFL=1:Z=9 

:rem 161 

620 NEXT :IFFL=0THENPRINTF3$;ER1$;F3§; "ERROR IN DIS 
CODE":SYS828 :rem 109 

LJ 625 IFFL»0THEN GOSUB 5000:GOTO 600 :rem 168 

630 AG$(K)=AD$( J,K) :K=3 :PRINTF2§ ; i INPUT "EXPLANATIO 
^ N:";AD$(J,K) :rem 237 

: ( 640 IFLEN(AD$(J,K) )>18THENAD$(J,K)=LEFT$(AD$(J,K), 

18) :rem 210 

650 K=4 :rem 87 

' 1 193 
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660 PRINTF1$; : INPUT "AMOUNT (+/-) i";AD$(J,K) :P$=AD$ 
(J,K) :rem 143 

670 GOSUB3700:IFEF=1THEN660 srem 116 

680 Z$=RIGHT$(P$,3) :IFMID$(Z$,1,1)=". "THEN700 

:rein 228 

690 PRINTF1$ER1$F1$; "ERROR— AMOUNT NOT IN X.XX FOR 

M":SYS828:FORD=lTO1000iNEXT :reni 2 

695 GOSUB 5000:GOTO 660 :rem 248 

700 MA=MA+1 :PRINT"{CLR} {6 DOWN} " tPRINTTAB ( 10) "ANOT 

HER ITEM? (Y/N) srem 104 

710 GETA$:IFA$=""THEN710 :rem 83 

720 IFA$="Y"THENGOSUB770:NEXT trem 45 

730 IFA$<>"N"THEN710 :rein 97 

740 J=NsNEXT:GOSUB3400iGOSUB3280iPRINT:PRINT" 

{3 DOWN} SAVING . ."; : rem 85 

750 GOSUB3540:IPE>19THEN300 :rem 96 

760 GOTO1270 :rem 160 

770 PRINT" { CLR} ADJUSTMENTS ":PRINT: RETURN : rem 53 
780 P0KEB0,9 :POKEBA, 9 :P0KE646 , 1 :GOSUB770 :PRINTTAB ( 

15) "CORRECTIONS ":PRINT :rem 126 

790 GOSUB3620:GOSUB3670:IFE>19THEN300 :rem 237 

800 GOSUB770 sLIj=0 :K=14 :PRINTTAB( 15 ) "CORRECTIONS" :P 

RINT :rem 199 

810 PRINT"ITEM NO. "TAB(10) "DIS"TAB(33)L$( 5) :PRINT 

:rem 92 

820 FORJ=1TOMA-1:PRINTTAB(3)JTAB(10)AD$(J,2) ; 

:rem 154 

830 PRINTTAB(39-LEN(AD$(J,4)))AD$(J,4) :LL=LL+1 :IPL 
L=>KTHEN850 : rem 87 

840 NEXT:IFJ=>MATHEN890 :rem 199 

850 PRINT :PRINTTAB( 9) "PRESS ' C TO CONTINUE 

:rem 154 

860 GETA$:IFA$<>"C"THEN860 :rem 223 

870 LL=0:PRINT" {CLR} " : PRINTTAB ( 15 ) " {DOWN} CORRECT 10 

NS": PRINT :rem 254 

880 PR1NT"ITEM NO . "TAB ( 10) "DIS"TAB ( 33 )L? ( 5) :PRINT: 

GOTO840 :rem 114 

890 A§="":PRINTF4$;ER1$;P4$; :INPUT"ITEM NO. TO COR 

RECT";A$ :rem 132 

910 JJ=VAL(A$) :IFJJ<=0ORJJ>MA-1THEN890 :rem 57 

920 PRINT" {CLR} "xPRINT "CORRECT ITEM ";A§sPRINT 

:rem 178 

930 PRINT"PRESS RETURN IF NO CHANGE: " :PRINT:PRINT 

:rem 116 

940 PRINT"DATE:"; :PRINTTAB( 10) AD$( JJ, 1) ; :INPUTAD$( 
JJ,1 ) srem 44 

950 PRINT"DIS:"; sPRINTTAB( 10) AD$( JJ, 2) ; : INPUTAD$( J 
J»2) :rem 241 

960 FIr=0sFORZ=lTO9:LL$=LEFT$(DI$(Z),3) :IFLL$=AD§(J 
J,2)THENFL=1:Z=9 .rem 216 
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970 NEXT :IFFL=0THENPRINTF3$;ER1$;F3$; "ERROR IN DIS 
i C0DE"iSYS828 :rem 117 

975 IFFL=0THENGOSUB5000:GOTO950 : rem 184 

- 980 PRINT"EXPLANATION:"; :PRINTTAB(10)AD$( JJ,3) ; :IN 

j PUTAD$(JJ,3) srem 89 

— ■ 990 PRINTF1$;"AM0UNT: "; :PRINTTAB(10)AD$( JJ,4) ; :DA? 

=AD$(JJ,4) :INPUTAD$(JJ,4) :rem209 
1000 P$=AD$( JJ,4) :GOSUB3700:IPEF=1THENAD${ JJ,4)=DA 
/ t $:GOT.O 990 trem 190 

1010 Z§=RIGHT$(P$,3) :IFMID${Z$,1,1)=". "THEN1030 

srem 53 

1020 PRINTF1$ER1$F1$; "ERROR — AMOUNT NOT IN X.XX FO 
RN":SYS828:FORD=1TO1000:NEXT srem 38 

1025 IFPL=0THEN AD$( JJ,4)=DA$ :GOSUB 5000:GOTO 990 

:rem 237 

1030 GOSUB3400:GOSUB2600:GOTO510 :rem 150 

1040 POKEBO, 2 rPOKEBA, 2 :P0KE646, 1 :GOSUB770 tPRINTTAB 

( 16) "DELETIONS ":PRINT :rem 243 

1050 GOSUB3620:GOSUB3670:IFE>19THEN300 :reni 19 

1060 G0SUB7 70 : LL=0 : K=14 : PRINTTAB ( 16 ) "DELET IONS " : PR 

INT :rem 83 

1070 PRINT"ITEM NO. "TAB(10) "DIS"TAB( 33)L${ 5) :PRINT 

:reni 139 

1080 FORJ=lTOMA-l : P RINTTAB ( 3 ) JTAB (10) AD$ ( J , 2 ) ; 

:rein 201 

1090 PRINTTAB(39-LEN(AD$(J,4)))AD$(J,4) :LL=LL+1:IF 
LL=>KTHEN1110 trem 172 

1100 NEXT: IFJ=>MATHEN1 150 irem 19 

1110 PRINT: PRINTTAB (9) "PRESS 'C TO CONTINUE 

:rem 192 

1120 GETA$:IFA$<>"C"THEN1120 :rera 43 

1130 LL=0 :PRINT" {CLR} " : PRINTTAB ( 16 ) " {DOVJN} DELETION 
S":PRINT :rem 129 

1140 PRINT"ITEM NO. "TAB ( 10) "DIS"TAB ( 33 ) L$ ( 5) :PRINT 
:GOTO1100 :rem 190 

1150 PRINT: PRINT "PRESS ' C TO CONTINUE OR ANY KEY 
{ SPACE }T0 EXIT : rem 178 

- > 1160 GETA$:IFA$=""THEN1160 trem 179 

1170 IFA$<>"C"THEN510 :rem 131 

i_ 1180 PRINTF4$;ER1$;F4$; :INPUT"ITEM NO. TO DELETE"; 

I { A$ trem 46 

1200 JJ=V7U^(A$) :IFJJ<=0ORJJ>MA-lTHENlia0 : rem 139 
1210 PRINT" { CLR} "tPRlNT "DELETING ITEM ";A$:PRINTtA 
—I D$( JJ,l)="9999"f AD$(JJ,2)="ZZZ trem 50 

_J 1215 PRINT Fl$;"{2 DOWN} {7 SPACES}PRESS ANY KEY TO 

CONTINUE" trem 248 

1216 GET R$tIF R$=" " THEN 1216 trem 217 

j 1220 AD$(JJ,3)="ZZZZZZZZZZZZZZZZZZ"tTR$( JJ,4)="0.0 

0":GOSUB3400 trem 144 

1230 MA=MA-1 tGOSUB2600tGOTO510 trem 8 
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1240 POKEBO,ll:POKEBA,ll:POKE646,l :rem 245 

1250 PRIl!ilT"{CLR}":PRINT:PRINTTAB(ll)" {2 D0WN}DISPL 
AY ADJUSTMENTS" :rem 18 

1260 GOSUB3620:GOSUB3670:IFE>19THBN510 trem 25 

1270 K=14:GOSUB1760:PORJ=1TOMA-1:PRINTAD${J,1) ; 

:rem 74 

1280 PRINTTAB(6)AD$(J,2); :PRINTTAB( 11) AD$ ( J , 3) ; 

I rem 194 

1290 PRINTTAB(39-LEN(AD$(J,4)))AD$(J,4):Hr=LL+l:IF 
LL=KTHEN1310 trem 114 

1300 NEXT :IFJ=»MATHEN1 340 srem 22 

1310 PRINTjPRINTTAB(9)"PRESS ' C TO CONTINUE 

:reni 194 

1320 GETA$:IFA$<>"C"THEN1320 trem 47 

1330 GOSUB1760:GOTO1300 :rejn 76 

1340 PRINT: PRINT "HARD COPY? (Y/N) :rem 254 

1350 GETA$:IFA$=""THEN1350 :rem 181 

1360 IFA$="Y"TBJEN1680 irem 150 

1370 IPA$<>"N"THEN1350 :rein 195 

1380 GOTO300 :rein 152 

1390 PRI NT " { CLR } " : POKEBO , 1 1 :POKEBA, 1 1 : POKE646 , 1 

:reni 153 

1400 PRINT:PRINTTAB(9)"{2 DOVnj} DI SPLAY ADJUSTMENTS 

" :rein 72 

1410 GOSUB3620:GOSUB3670:IFE>19THEN510 trem 22 

1420 PN=800 rPRINT" {CLR} " : PRINTN$TAB ( 35 ) PN:PRINT : PR 

INTTAB( 9) "SUMMARY OF ADJUSTMENTS :rem 101 

1430 PRINTTAB(9)"i22 Tl" j PRINT"DISPOSITION"TAB ( 33 ) 

"AMOUNT :rem 224 

1440 F0RL=lTO39:PRINT"BT§"; iNEXT: PRINT :F0RJ=1T09:F 

0RZ=1T09:LL$=LEFT$(DI$(Z),3) trem 170 

1450 IFLL$=""THEN1470 trem 145 

1460 IFAG$(J)=LL$THENPRINTDI$(J); :PRINTTAB( 39-LEN( 

AF$(J) ) )AF$( J) srem 33 

1470 NEXTtNEXT:PRINTTAB(29)"il0 Tl" t PRINTTAB ( 10) "N 

ET ADJUSTMENTS! 5 SPACES}?"; trem 172 

1480 PRINTTAB(39-LEN(AT$))AT$:PRINTt PRINT "HARD COP 

Y? (Y/N) trem 45 

1490 GETA?:IFA$=""THEN1490 trem 191 

1500 IFA$="Y"THEN1530 trem 140 

1510 IFA$<>"N"THEN1490 trem 196 

1520 GOTO300 trem 148 

1530 0PEN4,4,1:LB$=LEFT$(S$,56-I,EN(N$) ) tPRINT#4,IiA 

$;N$;LB$;PN;LF$;LF$ trem 226 

1540 LB$=LEFT$ (S§, 29 ) tPRINT#4,LB$; "SUMMARY OF ADJU 

STMENTS";LF$ trem 232 

1550 PRINT#4,LB$;"gl6 T3" ;LF$ tPRINT#4,LA$ ; "DISPOSI 

TION"; trem 55 

1560 LB$=IiEFT$(S$,43) tPRINT#4 ,LB$ ; "AMOUNT " ;LF$ 

trem 165 
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1570 PRINT#4,LA$; jPORL=lT045 iPRIl!JT#4 , " iTi" ; jNEXT 

trem 149 

1580 PRINT#4,LF$;LP§iFORJ=1T09jFORZ=1T09 trem 255 
1590 LL$=LEFT$(DI$(Z).3) :IFLL$=""THEN1610 :rein 32 
1600 IFAG$( J)=LL$THENGOSUB1660 :rem 18 

1610 NEXT:NEXT:LB$=LEFT$(S$,57) :PRINT#4,LB$ ; " 

gl0 T§";LF$:LB$»LEFT$(S$,30) :rein 241 

1620 PRINT#4,LB$;''NET ADJUSTMENTS {8 SPACES} $"; 

:rem 162 

1630 RA$sLEFT$ ( S$ , 16-LEN( AT$ ) ) :PRINT»4 , RA$ ; AT$ ;LF$ 

: rem 100 

1640 LB$=IiEPT$(S$,57) :PRmT#4,LB$;"il0 Tl";CR§:PRI 

NT»4 ,LB$ ; " DDDDDDDDDD :rem 55 

1650 FORSP=1T012:PRINT#4,LF$:NEXT:PRINT#4:CLOSE4:G 

OTO300 :rein 75 

1660 PRINT#4,LA$;DI$( J) ; trem 80 

1670 RA$=LEFT$(S§,60-LBN{DI$(J))-LEN(AF$(J))) :PRIN 

T#4, RA$ ; AF$( J) ;LF$: RETURN trem 68 

1680 OPEN4,4,ltLB$=LEFT$(S$,56-LEN(N$)) tPRINT#4,LA 

$;N$;LB$;PN;LF$;LF$ :rem 232 

1690 LB$=IiEFT$(S$,34) tPRINT#4 ,LB$ ; "ADJUSTMENTS " ;LF 

$tPRINT#4,LB$;"g8 T§";LF$ trem 171 

1700 PRINT#4,IiA$;"DATE{2 SPACES}DIS{2 SPACES}EXPLA 

nation! 22 SPACES)"; trem 132 

1710 LB$=LEFT$(S?,10) tPRINT#4 ,LB$ ; "AMOUNT" ;LF$ 

trem 156 

1720 PRINT«4,LA$; tFORLslT045 tPRIMT#4 , "gTl" ; tNEXTtP 

RINT*4,LF$;LF$tF0RJalT0MA-l trem 235 

1730 PRINT#4,LA$;AD$(J,1);"{2 SPACES } " ; AD$ ( J, 2 ) ; tL 

B$»LEFT$(S$,2) tPRINT«4,LB$;AD$(J,3); trem 178 
1740 LB$=LEFT§ ( S$ , 49-LEN( AD$ ( J , 3 ) ) -LEN( AD$ ( J , 4 ) ) ) t 

PRINT#4,LB$;AD?(J,4) ;LF$tNEXT trem 177 

1750 F0RSP=1T012 tPRINT#4,LF$ tNEXTtPRINT#4 tCLOSE4 tG 

OTO300 trem 76 

1760 LIj=0 tPRINT"{CLR}"tPN=810tPRINTN$TAB(35)PNtPRI 

NTtPRINTTAB( 14) "ADJUSTMENTS trem 21 

1770 PRINTTAB(14)"gll T3 trem 12 

1780 PRINT "DATE "TAB ( 6 ) "DIS "TAB (11) "EXPLANATION "TAB 

(33) "AMOUNT trem 214 

1790 F0RL=lTO39tPRINT"gTl"; tNEXTt PRINT t RETURN 

trem 196 

1800 POKEBO,10!POKEBA,10tPOKE646,l trem 245 

1810 PRINT"{CLR}{2 DOWN}" t PRINT "TRANSFERS" tPRINTtP 

RINTtGOSUB370 trem 245 

1820 ONAAGOTO1830, 2110, 2390, 300 trem 152 

1830 POKBBO , 10 1 POKEBA, 10 1 P0KE646 , 1 tPRINT" { CLR }TRAN 

SFERS"fPRINT:GOSUB3580 trem 159 

1840 0PEN15 , 8 , 15 t INPUT#15 ,E , E$ t CL0SE15 t FORJ=MrTON t 

PRINT"! CLR }TRANSFERS"t PRINT trem 33 
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1850 PRINT"ITEM NO. " ; J :PRINT:K=1 tPRIilT"ENTER DATE 

{ SPACE } (MONTH 2 DIGITS, DAY 2 trem 61 

1860 PRINT" DIGITS) .{2 SPACES } SAMPLE t 0324 FOR MARC 

H 24"iPRINT:INPUT"DATE";TR$( J,K) trem 66 

1870 K=2 srem 138 

1880 GOSUB2090 irem 28 

1890 PRINTF3$ER1§F3$"{2 UP} "ER1$F3§" { 2 UP)";jINPUT 

"FROM DIS CODE: ";TR$( J,K) :rem 163 

1892 IFTR$(J,K)="D"THENGOSUB3730:GOTO1880 trem 196 
1900 FL=0 :F0RZ=1T09:LL$=:LEFT$(M$(Z),3) tIFLL$=TR$( 

J,K)THENFIr=ltZ=9 trem 243 

1910 MEXT:IFFLs0THENPRINTF3$;ERl$;F3$;"ERROR IN DI 

S CODE":SYS828 trem 160 

1915 IFFL=:0THEN GOSUB 5000:GOTO 1890 trem 23 

1920 TG$(K)=TR$(J,K) :K=3 trem 53 

1930 PRINTF3$;ER1$;F3$; : INPUT "TO DIS CODEi " ;TR$( J, 

K) trem 46 

1932 IFTR$(J,K)-"D "THENG0SUB3 7 3 1 G0SUB2 090 tGOTOl 93 

trem 64 

1940 FL=0:PORZ=lTO9tLL$=IjEFT$(DI$(Z),3) tIFLL$=TR$( 

J,K)THENFL=ltZ=9 trem 247 

1950 NEXT:IFFL=0THENPRINTF3$;ER1$;F3$;"ERROR IN DI 

S C0DE":SYS828 trem 164 

1955 IFFL=0THEN GOSUB 5000 iGOTO1930 trem 22 

1960 TG$(K)»TR$(J,K) tKs4 trem 58 

1970 PRINTFl?; t INPUT "AMOUNT t ";TR$(J,K) tP$=TR$( J,K) 

trem 46 

1980 GOSUB3700:IFEF=1THEN1970 trem 222 

1990 Z$=RIGHT$(P$,3) tIBMID$(Z$,l,l)=". "THEN2010 

trem 69 

2000 PRINTF1SER1$F1$; "ERROR— AMOUNT NOT IN X.XX FO 

RM"tSYS828:FORD=lTO1000:NEXT trem 37 

2005 GOSUB 5000:GOTO1970 trem 80 

2010 MT=MT+ltPRINT"{CLR}{6 DOWN} " t PRINTTAB ( 10) "ANO 

THER ITEM? (Y/N) trem 186 

2020 GETA$:IPA$=""THEN2020 trem 171 

2030 IFA$="Y"THEN2060 trem 138 

2040 IFA$<>"N"THEN2020 trem 185 

2050 J=N trem 156 

2060 NEXTtGOSUB3320tGOSUB3130:PRINTtPRINT"{3 DO\K[] 

SAVING . ."; trem 110 

2070 GOSUB3480tIFE>19THEN300 trem 144 

2080 GOTO2640 trem 207 

2090 PRINT" {CLR}TRANSFERS"tPRINT trem 174 

2100 PRINT"PRESS ' D' FOR STANDARD DISPOSITION CODE 

S": PRINT: RETURN trem 143 

2110 P RI NT " { CLR } " : POKEBO , 10 1 POKEBA , 10 t POKE646 , 1 1 P R 

INT "TRANSFERS "t PRINT trem 24 

2120 PRINTTAB( 15) "CORRECTIONS" tPRINTtGOSUB3580 tGOS 

UB3670tIFE>19THEN300 trem 194 
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21 3 P RINT " { CLR } " : P RINT "TRANS FERS " : P RINT : LL=0 : K=l 4 
:PRINTTAB(15)"C0RRECTI0NS":PRINT : rem 197 

2140 PRINT"ITEM NO . "TAB ( 1 ) "FROM DIS "TAB( 33)L$( 5) : 
PRINT tFORJ=lTOMT-l :rem 57 

2150 PRINTTAB(3)JTAB(10)TR$(J,2); :PRINTTAB( 39-LEN( 
TR$(J,4)))TR$(J,4) :rem 195 

2160 LL=LL+1 :IFLL=>KTHEN2180 : rem 179 

2170 NEXT:IPJ=MTTHEN2220 : rem 239 

2180 PRINT:PRINTTAB(9)"PRESS 'C TO CONTINUE 

:rem 200 

2190 GETA$:IFA$<>"C"THEN2190 rrera 59 

2200 LIj=0:PRINT"{CLR}":PRINTTAB(15)" {DOWN} CORRECT I 

ONS":PRINT :rem 35 

2210 PRINT"ITEM NO. "TAB ( 10) "FROM DIS "TAB (33) L$ ( 5) : 

PRINT :G0T021 70 : rem 249 

2220 A$="":PRINTF4$;ER1$;F4$ ; :INPUT"ITEM NO. TO CO 

RRECT";A$ :rem 169 

2240 JJ=VAL(A$) :IFJJ<=0ORJJ>MT-1THEN2220 : rem 159 
2250 PRINT" {CLRl":PRINT "CORRECT ITEM ";A$:PRINT 

:rem 224 

2260 PRINT"PRESS RETURN IF NO CHANGE: " :FD=0 : rem 77 
2270 PRINT "DATE: :PRINTTAB(10)TR$( JJ,1) ; :INPUTTR$ 

(JJ,1) :rem 156 

2280 PRINT"FROM DIS : " ; :PR1NTTAB ( 10) TR$ ( JJ, 2 ) ; :INPU 

TTR$(JJ,2) :rem 149 

2290 F0RZ=1T09:LL$=LEFT$(DI$(Z),3) :IFLL$=TR$( JJ,2) 

THENFIr=l : Z=9 :rem 238 

2300 NEXT:IFFL=0THENPRINTF3$;ER1$;F3$;"ERROR IN DI 

S CODE":SYS828 :rem 154 

2305 IFFL=0THEN GOSUB 5000 :GOTO2280 : rem 11 

2310 PRINT"TO DIS:"; :PRINTTAB(10)TR$(JJ,3); tINPUTT 

R$(JJ,3) :rem 

2320 FL=0:FORZ=1TO9:LL$=LEFT$(DI$(Z),3) :IFLL$=TR$( 

JJ,3)THENFL=1:Z=9 :rem 34 

2330 NEXT:IFFL=0THENPRINTF3$;ER1$;F3$; "ERROR IN DI 

S CODE":SYS828 :rem 157 

2335 IFFL=0THEN GOSUB 5000 :GOTO2310 :rem 8 

2340 RR$=TR$( JJ,4) :PRINTF1$ "AMOUNT: " ; :PRINTTAB ( 10) 

TR$(JJ,4); :INPUTTR$(JJ,4) :rem 63 

2350 P$=TR$( JJ,4) :GOSUB3700:IFEF=1THENTR$( JJ,4)=RR 

$:GOTO2340 :rem 79 

2360 Z$=RIGHT$(P$,3) :IFMID$ (Z$ , 1 ,1 )=" . "THEN2380 

:rem 71 

2370 PRINTF1$;ER1$F1$; "ERROR — AMOUNT NOT IN X.XX F 
ORM":SYS828:FORD=1TO1000:NEXT : rem 106 

2375 TR$(JJ,4)=RR$ :GOSUB 5000 :GOTO2340 :rem 160 
2380 GOSUB3320:GOSUB2590:GOTO1800 :rem 219 

2390 PRINT" { CLR} " :P0KEB0,2 :P0KEBA,2 :POKE646, 1 

:rem 58 
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2400 PRINT "TRANSFERS" iPRINT:PRINTTAB( 16) "DELETIONS 
" I PRINT :rein 30 

2410 GOSUB3580:GOSUB3670:IFE>19THEN300 :reni 25 

2420 PRINT " {OiR} " : PRINT "TRANSFERS " : PRINT : LL=0 :K=14 
:PRINTTAB( 16) "DELETIONS" :PRINT : rem 36 

2430 PRINT"ITEM NO . "TAB ( 10) "FROM DIS"TAB ( 33) L$ ( 5) : 
PRINTjF0RJ=1T0MT-1 :rem 59 

2440 PRINTTAB(3) JTAB(10)TR$( J,2) ; :PRINTTAB ( 39-LEN( 
. TR$(J,4)))TR$(J,4) :rem 197 

2450 LL=LL+1 :IFLIi=>KTHEN2470 :rem 183 

2460 NEXT:IFJ=MTTHEN2510 :rem 243 

2470 PRINT:PRINTTAB(9) "PRESS 'C TO CONTINUE 

:rem 202 

2480 GETA$ jIFA$<>"C"THEN2480 :rem 63 

2490 LL=0jPRINT"{CLR}":PRINTTAB(16)" {DOWN } DELETION 

S":PRINT :reni 139 

2500 PRINT"ITEM NO . "TAB ( 10) "FROM DIS"TAB ( 33) L$ ( 5) : 

PRINT:GOTO2460 :rem 253 

2510 PRINT: PRINT "PRESS ' C TO CONTINUE OR ANY KEY 

{ SPACE }T0 EXIT :rem 179 

2520 GETA$:IFA$=""THEN2520 trem 181 

2530 IFA$<>"C"THEN1800 :rem 183 

2540 PRINTF4$ ;ER1$ ;F4$; :INPUT"ITEM NO. TO DELETE"; 

A$ I rem 47 

2560 JJ=VAL(A$) :IFJJ<=0ORJJ>MT-1THEN2540 : rem 169 
2570 PRINT" {CLR)":PRINT "DELETING ITEM ";A$iPRINT:T 

R$(JJ,1)="9999":TR$(JJ,2)="ZZZ :rem 126 

2575 PRINT Fl$;"{2 D0WM}{7 SPACES}PRESS ANY KEY TO 

CONTINUE" :rem 2 

2576 GET R$ : IF R$=" " THEN 2576 :rem 237 
2580 TR$( JJ,3)="ZZZ"sTR$( JJ,4)="0.00":GOSUB3320:MT 

=MT-1 :GOSUB2590 :GOTO1800 :rem 83 

2590 GOSUB3130:PRINT:PRINT"{3 DOWNlSAVING . .";:G0 

SUB3480: RETURN :rem 30 

2600 GOSUB3280iPRINT:PRINT"{3 D0WN}SAVING . . " ; :G0 

SUB3 540: RETURN :rem 25 

2610 POKEBO,2:POKEBA«2:POKE646,l :rem 151 

2620 PRIMT"{CLR) ":PRINTtPRINTTAB(ll)"{2 D0WN}DISPL 

AY TRANSFERS :rem 88 

2630 GOSUB3580:GOSUB3670:IFE>19THEN1800 :rem 83 
2640 K=14 :GOSUB3090 :F0RJ=1T0MT-1 :PRINTTR$( J,l) ; 

:rem 126 

2650 PRINTTAB(7)TR$(J,2); :PRINTTAB( 20)TR$( J, 3) ; 

:rem 7 

2660 PRINTTAB(39-LEN(TR$(J,4)))TR$(J,4) :LIi=LL+l :IF 
LIisKTHEN2680 :rem 193 

2670 NE)CT:IFJ»>MTTHEN2710 :rem 54 

2680 PRINT: PRINTTAB( 9) "PRESS 'C TO CONTINUE 

:rem 205 

2690 GETA$iIFA$<>"C"THEN2690 :rem 69 
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2700 GOSUB3090:GOTO2670 :rein 87 

2710 PRINT :PRINT "HARD COPY? (Y/N) :rera 

2720 GETA$sIFA$=""THEN2720 :rem 185 

2730 IFA$="Y"THEN3000 :rein 140 

I \ 2740 IFA$<>"N"THEN2720 jrem 199 

" " 2750 GOTO300 :rein 154 

2760 PRINT " { CLR} " : POKEBO, 2 tPOKEBA, 2 :POKE646 , 1 

:rein 59 

2770 PRINT:PRINTTAB(11)"{2 DOWN}DISPLAY TRANSFERS 

:rein 192 

2780 GOSUB3580:GOSUB3670:IFE>19THEN1800 :rem 89 
2790 PRINT" {CLR} "jPN=900:PRINTN$TAB( 35) PN:PRINT:PR 

INTTAB( 10) "SUMMARY OF TRANSFERS :rem 255 

2800 PRINTTAB(10)"g20 Tl" :PRINT "DISPOSITION"TAB ( 33 

) "AMOUNT :reni 196 

2810 P0RL=lT039:PRINT"gT§"; :NEXTi PRINT : F0RJ=1T09 :F 

0RZ=1T09:LL$=LEFT$(DI$(Z),3) :reni 172 

2820 IFLL$=""THEN2840 :rein 149 

2830 IFTG$( J)=LL$THENPRINTDI$(J); iPRINTTAB( 39-LEN( 

TF$( J) ))TF$(J) :reni 92 

2840 NEXT:NEXT:PRINT:PRINT"HARD COPY? (Y/N) 

:rein 246 

2850 GETA$:IFA$s""THEN2850 :reni 193 

2860 IPA$="Y"THEN2890 :rem 160 

2870 IFA$<>"N"THEN2850 :rem 207 

2880 GOTO300 :reni 158 

2890 OPEN4,4,l:LB$=LEFT$(S$,56-LEN(N$)) :PRINT#4,LA 

$;N$;LB$;PN;IiF$;LF$ :rem 236 

2900 LB$=LEFT$( S$, 30) tPRINT#4,LB$; "SUMMARY OF TRAN 

SFERS";LP$ :reni 71 

2910 PRINT#4,LB$f "gl5 Tl" ;LF§ :PRINT#4 ,IiA$ ; "DISPOSI 

TIQN"; :rein 149 

2920 LB$=LEFT$(S$,43) :PRINT#4 ,LB$ ; "AMOUNT " ;LF$ 

:rein 166 

2930 PRINT#4,LA$; :F0RL=1T045 :PRINT#4 , "gTl" ; iNEXTrP 
RINT#4,LF$;LF$ :rem 135 

' \ 2940 P0RJ=1T09 :F0RZ=1T09 :rein 15 

2950 LL$=LEPT§(DI$(Z),3) :IPLL$=""THEN2970 : rem 43 
2960 IFTG$( J)=LL$THENGOSUB2980 :rem 53 

--^ 2970 NEXT:NEXT:FORSP=1T012jPRINT#4,LF$:NEXT:PRINT# 

4 :CL0SE4 :GOTO300 trem 67 

2980 PRINT#4,LA$;DI$( J) ; :rem 86 

2990 RA$=LEFT$(S$,60-LEN(DI$(J))-LEN(TF$(J))) :PRIN 
T#4,RA$;TF$(J) ;LF$:RETURN :rem 112 

3000 0PEN4 ,4,1 :LB$=LEFT$ ( S$ , 56-LEN( N$ ) ) jPRINT#4 ,LA 
$;N$;LB$;PN;LF$;LF$ :rem 220 

3010 IjB$=LEFT$(S$,35) iPRINT#4,LB$ ; "TRANSFERS" ;LF$s 
PRINT#4,LB$;"g7 T§";LF$ :rem 99 

3020 PRINT#4,LA$;"DATE{12 SPACES }FRDM DIS 

{14 SPACES }T0 DIS"; irem 245 
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3030 LB$=IiEFT$(S$,10) :PRINT*4 ,LB$ ; "AMOUNT" ;LF$ 

:rein 153 

3040 PRINT#4 , LA$ ; :F0RL=1T045 :PRINT#4 , " gTl " ; jNEXT: P 
RINT#4,LF§;LF$:F0RJ=1T0MT-1 trem 251 

3050 PRINT#4,LA$;TR$(J,1) ;"{12 SPACES}"7TR$( J,2) ; 

:rem 62 

3060 LB$=LEFT$(S$,19) :PRINT#4,LB$;TR$(J,3) ; 

:rem 155 

30 70 LB$=LEFT$ ( S$ , 19-LEN( TR$ ( J , 4 ) ) ) :PRINT#4 , LB$ ; TR 

$(J,4) ;LF$:NEXT : rem 238 

3080 F0RSPB1T012 tPRINT#4 ,LF$ :NEXT :PRINT#4 iCL0SE4 :G 

OTO300 I rem 74 

3090 LL=0 :PRINT" { CLR} " :PN=910 :PRINTN$TAB( 35)PN:PRI 

NT I PRINTTAB (15) "TRANSFERS : rem 123 

3100 PRINTTAB ( 15 )"g9 Tl" : rem 222 

3110 PRINT "DATE "TAB( 7) "FROM DIS "TAB( 20 ) "TO DIS"TAB 

(33) "AMOUNT" jrem 98 

3120 FORL=lT039:PRINT"gTl"; : NEXT: PRINT: RETURN 

: rem 185 

3130 FORZ=1TO9:TF$(Z)="0.00":NEXT:PORZZ=1TO9:TG$(Z 
Z)=LEFT§(DI$(ZZ),3) :rem 188 

3140 F0RZ=1T0MT-1 i IFTR$ ( Z , 2 )=TG$ ( ZZ)THENGOSUB3170 

:rem 48 

3150 IFTR$(Z,3)=TG$(ZZ)THENGOSUB3180 :rem 168 

3160 NEXT: NEXT: RETURN :rem 156 

3170 P1$=TF$(ZZ) :P2$=NN$+TR$(Z,4) :GOSUB3190 :TF$ (ZZ 

)=P3$:RETURN :rem 207 

3180 P1$=TF$(ZZ) :P2$=TR$(Z,4) :GOSUB3190 :TP$ (ZZ )=P3 

§: RETURN :rem 229 

3190 TA=0 : TL=0 : TR=0 : P$=P1$ :GOSUB3250 : TL=PL-1 : TR=PR 

+1:P$=P2$:GOSUB3250 :rem 184 

3200 TIr=TL+PL:TR=TR+PR: T A=TL+ TR : I FT A=0 THENP3 $="0.0 

0": RETURN :rem 16 

3210 IFTA<0THENP3$=STR$(TA-.001) :rem 88 

3220 IFTA>0THENP3$=STR$(TA+.001) : rem 89 

3230 P3$=LEFT$(P3$,LEN(P3$)-1) iIFLEPT$(P3$ , 1 )=CHR$ 

(32)THENP3$=MID$(P3$,2) :rem 28 

3240 RETURN :rem 169 

3250 PL$=LEFT$(P$,LEN(P$)-3) :PL=VAL(PL$) :rem 18 
3260 PR$=RIGHT$(P$,3) :PR=VAL(PR$) :IFPL<0THENPI^PR* 

-1 :rem 176 

3270 RETURN trem 172 

3280 AT$="0.00" :F0RZ=1T09 sAP$(Z )="0.00" :NEXT:FORZZ 

=1T09 :rem 241 

3290 AG$(ZZ)=LEFT$(DI$(ZZ),3) :F0RZ=1T0MA-1 :IFAD$(Z 

,2)=AG$(ZZ)THENGOSUB3310 :rem 200 

3300 NEXT:P1$=AT$:P2$=AP$(ZZ) iGOSUB3190:AT$=P3$:NE 

XT:RETURN :rem 152 

3310 P1$=AF$(ZZ) :P2$=AD$(Z,4) :GOSUB3190 :AF$ (ZZ )=P3 

$: RETURN :rem 153 
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3320 PRINT I PRINT "SORTING . " ; :IFMT<=2THEN3390 :rein 2 
3330 F0RJJ=lT0MT-2 : F0RKK=JJ+1T0MT-1 : IFTR$ ( KK , 1 ) > TR 

§( JJ,1)THEN3380 :rem 249 

3340 SM$=TR$(KK,1) :RM$=!TR$(KK,2) :TM$=TR$(KK,3) :UM$ 

=TR$(KK,4) :rein 188 

3350 TR$(KK,1)=TR$(JJ,1) :TR$(KK, 2)=TR$ ( JJ , 2) 

:reni 181 

3360 TR$(KK,3)=TR$(JJ,3) :TR$(KK,4)=TR$( JJ,4) 

:reni 190 

33 70 TR$ ( JJ , 1 )=SM$ : TR$ ( JJ , 2 )=RM$ : TR$ ( JJ , 3 )=TM$ : TR$ 
(JJ,4)=UM$ :rem 183 

3380 NEXTjPRINT" ."rtNEXT :reni 250 

3390 RETURN :rem 175 

3400 PRINT :PRINT "SORTING . " ; :IFMA<=2THEN3470 

:rein 237 

3410 F0RJJ=lT0MA-2 :F0RKK=JJ+1T0MA-1 :IFAD$(KK, 1)>AD 
$( JJ,1)THEN3460 :rem 143 

3420 SM$=AD$(KK,1) :RM$=AD$(KK, 2) :TM$=AD$(KK, 3) :UM$ 
=AD$(KK,4) :rein 55 

3430 AD$(KK,1)=AD$(JJ,1) :AD$( KK, 2 )=AD$( JJ , 2 ) 

:rein 48 

3440 AD$(KK,3)=AD$(JJ,3) :AD§(KK,4)=AD$( JJ,4) 

:rem 57 

3450 AD$ ( JJ , 1 )=SM$ : AD$ ( JJ , 2 )=RM$ : AD$ ( JJ , 3 )=TM$ : AD$ 

(JJ,4)=UM$ :rem 50 

3460 NEXT: PRINT" .";:NEXT srem 249 

3470 RETURN :reni 174 

3480 F$="TRANSFER":0PEN15,8,15:PRINT#15, "S0j"+F$iC 

L0SE15 :reni 15 

3490 OPEN8,8,8,"0:"+F$+",S,W :rem 192 

3500 PRINT#8,MT: PRINT" . " ; :FORJB=lT09 :PRINT#8 ,TG$ ( 

JB)", "TF$(JB)", "jPRINT" ."; :renil93 
3510 NEXT :rem 8 

3520 FORJB=lTOMT-l sF0RKB=lT04 :PRINT#8 ,TR$( JB,KB ) 

" J PRINT" . "; :NEXT:NEXT i rem 196 

3530 CIi0SE8:G0SUB36 70: RETURN :reni 29 

3540 F$="ADJUSTMENTS " : OPENl 5,8,15 :PRINT# 15 , "S0 : "+F 

$:CL0SE15 :reni 249 

3550 0PEN8,8,8, "0:"+F$+",S,W":PRINT#8,MA", "AT$CR$ : 

PRINT" . " ; :F0RJB=1T09 :rem 8 

3560 PRINT#8,AG$( JB)", "AF$( JB)", ":PRINT" .";:NEXT: 

F0RJB=1T0MA-1 :F0RKB=1T04 :rera 93 

3570 PRINT#8,AD$( JB,KB)", ":PRINT" . " ; :NEXT:NEXT:CL 

OSE8:GOSUB3670:RETURN srem 132 

3580 PRINT: PRINT "LOADING . " ; :F$="TRANSFER" :0PEN8 ,8 

,8,"0:"+F$+",S,R":INPUT#8,MT :rem 146 

3590 PRINT" . "; :F0RJB=1T09:INPUT#8,TG$( JB),TF$( JB) 

:PRINT" .";:NEXT :rem 163 

3600 F0RJB=lT0^a■-l :rem 76 
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3610 FORKB=lT04iINPUT#8,TR$(JB,KB) :PRI1JT" .";:NEXT 

: NEXT: CLOSES: RETURN irem 156 

3620 PRINT:PRINT "LOADING . " ; iF$="ADJUSTMENTS " jOPEN 

8,8,8, "0t"+F$-«-",S,R :rem 102 

3630 INPUT#8, MA, AT$ SPRINT" tF0RTB=lT09tINPUT*8, 

AG$(JB),AP$(JB):PRINT" ."; srem 195 

3640 NEXT srem 12 

3650 F0RJB=1T0MA-1 :F0RKB=1T04 :INPUT#8,AD$( JB,KB) :P 

RINT" ."; tNEXT:NEXT:CL0SE8 :rem 15 

3660 RETURN :rein 175 

3670 E=0tOPEN15,8,15 tINPUT#15,E,E$ :rem 163 

3680 IFE>19THENPRINTiPRINTE$ tSyS828 :FORDalTO5000 :N 

EXT srem 200 

3690 CLOSEl 5 : RETURN xrem 200 

3700 EF=0:L1»LBN(P$) :F0RI/=1T0L1 tT$=MID$( P$ ,L, 1) :AB 

=ASC(T$) JIFAB=46THEN3720 :reml00 
3705 IF AB=43 OR A&=45 THEN 3720 : rem 74 

3710 IFAB<480RAB>57THENL=L1jEF»1:PRINT:PRINTF1$ER1 

$F1$; "ERROR IN INPUT " t SYS8 28 :rem 118 

3720 60SUB 5000 :NEXTt RETURN :reni 164 

3730 PRINT"{CLR)(2 DOWN} " tPRI NTT AB( 7) "STANDARD DIS 

POSITION CODES" J PRINT : rem 152 

3 740 PRINTTAB ( 8 ) "DIS "TAB (13)" INCOME " : PRINT : F0RZ=1T 

O9:IPDI$(Z)=""THEN3760 : rem 155 

3750 DK$(Z)=LEFT$(DI$(Z),3) :PRINTTAB( 8) DK$ (Z )TAB( 1 

3)DI$(Z) :rem 50 

3760 NEXTtPRINT:PRINTTAB(9)"PRESS ' C TO CONTINUE 

:rem 70 

3770 GETA$jIFA$<>"C"THEN3770 jrem 69 

3780 RETURN trem 178 

3790 POKEBO,14:POKEBA,6:POKE646,14 trem 12 

3800 PRINT"{CLR}{6 DOWN } "sPRINTTAB ( 12 ) "REMOVE DATA 
DISK": PRINT :rem 5 

3810 PRINTTAB(18)"AND"iPRINTsPRINTTAB(10)"INSERT P 

ROGRAM DISK'':PRINTtPRINT"{4 DOWN} :rem 104 
3820 PRINTTAB (9) "PRESS ' C TO CONTINUE trem 3 

3830 GETA$:IFA$=""THEN3830 trem 191 

3840 IFA$<>"C"THEN3830 trem 193 

3850 POKE631,83tPOKE632,89tPOKE633,83 trem 109 

3860 POKE634 , 53 tPOKE635 ,49 tPOKE636 ,48 sPOKE637 ,48 tP 

OKE638,48tPOKE639,13 trem 79 

3870 POKE198,9:NEW trem 44 

5000 REM FORMAT trem 114 

5010 PRINT F1$;ER1$;F1$;ER1$;F2$:RETURN srem 3 
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PLANNED INCOME 

Remember to use the name above for the program you place on the PAM master disk. 

20 BO=53280:BA=53281 trem 47 

30 N=100 : FE=0 iFl=0:Dl=0:Il=0: Y=0 : MA=1 : M=0 : LL=0 : YI= 

0:TA=0:TL»0:PN=0 :reni 134 

40 TR=0:PR=0:PL=0iMI=ltMy=ltMM=0 :rein 208 

50 LF$=CHR$(10) :CR$=CHR$(13) :SP$=CHR$ ( 32) :NC=80:PC 

=0 I rem 144 

60 S$=" " :F0RSP=1T0NC : S$=S$+SP$ :NEXT: LA$=LEFT$ ( S$ , 1 

0) iLB$=""iRA$=" irem 29 

70 N$="":N1$="":N2$="":N3$="":N4$="":TA$="":SM$="" 

:RM$="":UM$=" :reni 168 

75 Fl$=" {HOME} {18 DOWN} " :ER1$=" {43 SPACES}" 

:rein 116 

77 F2$="{H0ME}{16 DOWN) " :F3$=F2$+" {2 UP}" irem 239 
80 PT$=""jGL$="":PU$="":DA$="":DB$=" :rem 78 

90 Il$=" " r I2$=" " : I3$=" " : I4$=" " : I5$=" " : Pl$=" " :P2$=" 
":P3$=" :rein 247 

100 P$="":PL$="":PR$="":A$="":Z$="":NN$="- irem 97 
110 DIML? ( 30 ) , M$ ( 12 ) , FW$ ( 40 ) , IT$ ( 10 ) , DI$ ( 10 ) :DIMFW 

(40),IT(10),DI(10) :rein 253 

120 DIMI$(100,5),PI$(100,4) :M$(l)="JANUARy»:M$(2)= 

"FEBRUARY :rem 253 

130 M$ ( 3 ) = " MARCH " : M? ( 4 ) = " APRIL " : M$ ( 5 ) = " MAY " : M§ ( 6 ) = 

"JUNE irem 250 

140 M$(7)="JULY":M$(8)="AUGUST :rem 191 

150 M$(9)="SEPTEMBER":M$(10)="OCTOBER :rem 131 

160 M$ ( 11 ) = "NOVEMBER" : M$ ( 12 )= "DECEMBER" : POKEBO , 5 : P 

OKEBA,5:POKE646,l :rein 191 

170 PRINT"{CLR}{3 DOWN} " :PRINTTAB ( 13 ) "PLANNED INCO 

ME":FORD=1TO5000:NEXT :rem 55 

180 POKEBO,14:POKEBA,6:POKE646,14 :rem 210 

190 PRINT"{CLR} {6 DOWN} " :PRI NTT AB( 10 ) "REMOVE PROGR 

AM DISK": PRINT rrem 208 

200 PRINTTAB(18) "AND": PRINT :PRINTTAB( 12) "INSERT DA 

TA DISK": PRINT: PRINT" {4 DOWN} :rein 50 

210 PRINTTAB(9)"PRESS ' C TO CONTINUE : rem 201 

220 GETA$:IFA$<>"C"THEN220 : rem 203 

230 POKEBO, 12 :POKEBA, 12 :POKE646,l trem 197 

240 PRINT"{CLR} {2 DOVJN} ": PRINTTAB ( 13 ) "PLANNED INCO 

ME": PRINT: PRINT :rem 254 

250 PRINT "LOADING PERSONAL DATA " ; :F$="PERSDATA 

:rem 118 

260 0PEN8 , 8 , 8 , "0 : " +F$+ " , S , R" : INPUT#8 , YR$ , N$ , Nl $ , N2 
§,N3$,N4$ : PRINT" ."; : rem 25 

270 PORJ=1TO30:INPUT#8,L$(J) :NEXT:PRINT" .";:CL0SE 
8:GOSUB2630:IFE>19THEN180 :rem 114 

280 F$=" INCDATA" :0PEN8 , 8 , 8, "0 : "+F$+" , S , R" : INPUT#8 , 
F1,D1, II: PRINT" ."; :rem 67 
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290 P0RJ=1T039:INPUT#8,FW§(J) ,FW(J) :NEXTiPRINT" ." 

; :rem 71 

300 F0RJ=1T09:INPUT#8,IT${J),IT(J) :NEXT :rem 152 
310 PRINT" . "; :F0RJ=1T09:INPUT#8,DI$(J) ,DI( J) :NEXT 

:PRINT" .";:CL0SE8 :rem 73 

320 GOSUB2630:IFE>19THEN180 :rein 94 

330 POKEBO , 5 :POKEBA, 5 : P0KE646 , 1 :PRINT" { CLR} 

{3 DOWN} ":PRINTTAB( 13) "PLANNED INCOME : rem 109 
340 PRINTTAB(8)"{D0WN)1. ENTER/ CHANGE DATA":PRINTT 

AB(8)" {D0WN}2. VIEW PLAN FOR MONTH : rem 50 

350 PRINTTAB(8)"{D0WN}3. VIEW PLAN FOR YEAR":PRINT 

TAB(8) "{D0WN}4. COMPARE : rem 124 

360 PRINTTAB(8)"{D0WN}5. MAIN MENU" :PRINTTAB( 10 ) " 

{4 DOWN) PRESS DESIRED NUMBER :rem 164 

370 GETA$ :IFA$=""THEN370 :rem 87 

380 IFA$<"1"ORA$>"5"THEN370 :rem 198 

390 AA=VAL(A$) :ONAAGOTO400, 1610, 2700 , 3010 , 3370 

:rem 236 

400 PRINT" {CLR} {3 DOWN} ": POKEBO, 13 : POKEBA, 13 JP0KE6 
46, 0:PRINTTAB( 12) "ENTER/CHANGE DATA :rem 119 

410 PRINTTAB(11)"{D0WN}1. START NEV/ MONTH" :PRINTTA 
B(11)"{D0WN}2. ADD NEW INCOME : rem 176 

420 PRINTTAB(ll)"{DOWN}3. CORRECTIONS" :PRINTTAB( 11 
)"{D0WN}4. DELETE : rem 71 

430 PRINTTAB(11)"{D0WN}5. PLANNED INCOME MENU 

:rem 54 

440 PRINTTAB(10)"{4 DOWN}PRESS DESIRED NUMBER 

:rem 106 

450 GETA$:IFA$=""THEN450 :rem 85 

460 IFA$<"1"ORA$>"5"THEN450 :rem 196 

470 AA=VAL(A$) :ONAAGOTO480 , 710 , 1070 , 1360 , 330 

:rem 145 

480 PRINT" {CLR} ": POKEBO, 15 :POKEBA, 15 :P0KE646 , 11 :TA 

$="":GL$=" :rem 101 

490 PRINT "STARTING NEW MONTH" : INPUT "MONTH NUMBER ( 

2 DIGITS, 01 TO 12)";M :rem 9 

500 PRINT: INPUT "FOR YEAR" ;YR: PRINT "COPY LAST YEAR' 

S? (Y/N) :rem 151 

510 GETA$:IFA$=""THEN510 :rem 79 

520 IFA$="N"THEN700 : rem 32 

530 IFA$<>"Y"THEN510 :rem 104 

540 PRINT:PRINT"INSERT DATA DISK. {2 SPACEsjpRESS ' 

C WHEN READY. ":GOSUB680: PRINT :rem 139 

550 PRINT:PRINTTAB(11) "1 . { 2 SPACES} PLANNED": PRINT: 

PRINTTAB(11)"2.{2 SPACES } ACTUAL INCOME :rem 44 
560 PRINT :PRINTTAB( 10) "PRESS DESIRED NUMBER 

:rem 240 

570 GETA$:IFA$=""THEN570 :rem 91 

580 IFA$<"1"ORA$>"2"THEN570 :rem 199 

590 AA=VAL(A$) :ONAAGOTO600,64d :rem 228 
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600 GOSUB2580:IFB>19THEN400 :rem 94 

610 PRINT: PRINT "INSERT NEXT YEAR'S DATA DISK. 

{2 SPACES} PRESS 'C'WHEN READY. :reni 50 

r— t 620 GOSUB680:GOSUB2530:IFE>19THEN400 :rem 179 

LJ 630 GOTO330 :rem 104 

640 G0SUB2 390 : 1 FE> 19THENPRINT : PRINTE? : SYS8 28 : FORD= 
1TO5000:NEXT:GOTO400 :rein 32 

650 PRINT: PRINT "INSERT NEXT YEAR'S DATA DISK. 
' {2 SPACES) PRESS 'C'WHEN READY. trem 54 

660 GOSUB680 : MI-MY : PT$=TA$ :GOSUB2530 : IFE> 19THEN400 

:rem 98 

670 GOTO330 :rem 108 

680 GETA$:IFA$<>"C"THEN680 :rem 223 

690 RETURN :rem 127 

700 POKEBO,5:POKEBA,5:POKE646,1:MI=1:GOSUB2360:GOT 

0730 jrem 59 

710 POKEBO, 5 :POKEBA, 5 :P0KE646 , 1 :PRINTTAB ( 13 ) " {CLR} 

{2 DOWN} ADD NEW INCOME :rem 4 

720 INPUT"MONTH NUMBER (2 DIGITS, 01 TO 12)";M:G0S 

UB2580:IFE>19THEN400 :reni 32 

730 FORJ=MITON:PRINT" {CLR} {2 D0WN}ALWAYS USE STAND 

ARD FROM WHOM NAME":PRINT : rem 181 

740 PRINT:PRINTTAB(13)"{2 DOWN} ADD NEW INCOME ":PRI 

NT" {DOWN} ITEM NO. " ; J:PRINT:K=1 :rein 164 

750 PRINT"IF DESIRED, PRESS 'F' (RETURN) FOR 

:rein 63 

760 PRINT"LIST OF STANDARD NAMES{9 SPACES}:rem 226 
770 PRINT:PRINTL$(3) ; :rem 33 

780 INPUTPI$(J,K) :IFPI$(J,K)=""THEN780 :rem 229 
790 IFPI$( J,1)="P"THENGOSUB930:GOTO770 irem 7 

800 LL=LEN(PI$(J,1)) :IFLL>15THENPI$(J,1)=LEFT$(PI$ 
(J,l),15) :reni 95 

810 K»2 :rem 83 

820 PRINTF2$; "PLANNED AMOUNT"; :rem 83 

830 INPUTPI$(J,K) :IFPI$(J,K)=""THEN830 :rem 221 
r— 1 840 P$=PI$( J,2) :GOSUB2670:IFEF=1THEN820 :rem 23 

\ 850 Z$=RIGHT$(P$,3) :IFMID$(Z$,1,1)=". "THEN870 

:rem 235 

860 PRINTF2$; "ERROR — AMOUNT NOT IN X.XX F0RM":SYS8 
28:FORD=1TO1000:NEXT :rein 123 

865 GOSUB 5000:GOTO 820 :rem 245 

870 MI=MI+1:PRINT"{CLR}{7 DOVW} " :PRINTTAB ( 10) "ANOT 
— , HER ITEM? (Y/N) :rem 145 

_i 880 GETA$:IFA$=""THEN880 :rem 99 

890 IFA$="N"THENJ=N:GOTO910 :rem 117 

900 IFA$<>"Y"THEN880 :rem 115 

910 NEXT:GOSUB2070:PRINT:GOSUB2280:PRINT:GOSUB2530 
:IFE>19THEN400 : rem 109 

920 YI=0:MY=MI:GOTO1650 :rem 156 
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930 PRI1!IT"{CLR}{2 DOWN} " : PRINT"STANDARD LIST OF FR 
OM WHOM INCOME IS :rem 243 

940 PRINT "RECEIVED. {2 SPACES}SPELL EXACTLY: " :PRINT 
:LL=0:FORFW=1TO39 :rem 248 

950 IFFW$(FW)=""THEN970 :rem 44 

960 PRINTTAB(10)FW$(FW) :LL=LL+1 : IFLL=15THEN980 

:rein 59 

970 NEXT:IFFWN40THEN1020 :rem 216 

980 PRINT: PRINTTAB( 9) "PRESS ' C TO CONTINUE 

:reni 158 

990 GETA$:IFA$=<>"C"THEN990 :rein 36 

1000 PRINT"{CLR} {2 DOWN}": PRINT "STANDARD LIST OF F 

ROM WHOM INCOME IS :rem 24 

1010 PRINT "RECEIVED. {2 SPACES}SPELL EXACTLY: ": PRIN 

TiLL=0:GOTO970 :rem 245 

1020 PRINT:PRINT:PRINTTAB(9) "PRESS ' C TO CONTINUE 

:rein 135 

1030 GETA$ :IFA$<>"C"THEN1030 :rem 43 

1040 PRINT"{CLR} {2 DOWN} ALWAYS USE STANDARD TYPE, 

{ SPACE }FROM WHOM :reni 21 

1050 PRINT "NAME, AND DISPOSITION CODES .": PRINT : PRI 

NTTAB(13)"{2 DOWN} ADD NEW INCOME :rein 116 

1060 PRINT "{DOWN} ITEM NO . " ; J :PRINT: RETURN :rem 9 
1070 PRINT" { CLR} " : POKEBO ,10 : POKEBA, 10 : P0KE646 , 1 s PR 

INTTAB( 15)" {DOWN} CORRECT IONS": PRINT :rem 78 
1080 PRINT"MONTH NUMBER (2 DIGITS, 01 TO 12)":INPU 

T"OF REPORT DESIRED ";M :rem 202 

1090 GOSUB2580:IFE>19THEN400 :rem 146 

1100 LL=0:K=14 :PRINT" {CLR} " tPRINTTAB ( 15 ) " {D0WN}C0R 

RECTIONS": PRINT :rem 72 

1110 PRINT"ITEM NO."TAB(10)L$(3)TAB(33)L$(5) :PRINT 

:rem 86 

1120 F0RJ=1T0MI-1 :PRINTTAB(3)JTAB(10)PI$(J,1) ; 

:rein 223 

1130 PRINTTAB(39-LEN(PI$(J,2) ))PI$(J,2) :LL=LL+1:IF 
LL=>KTHEN1150 :rem 207 

1140 NEXT:IFJ=MITHEN1190 :rein 229 

1150 PRINT :PRINTTAB( 9) "PRESS 'C TO CONTINUE 

:rein 196 

1160 GETA$:IFA$<>"C"THEN1160 :rein 51 

1170 LL=0 : P RI NT " { CLR } " : PRI NTTAB ( 1 5 ) " { DO WN } CORRECT I 

ONS": PRINT :rem 40 

1180 PRINT"ITEM NO. "TAB ( 10)L$ ( 3)TAB ( 33 ) L$ ( 5) :PRINT 

:6OTO1140 :rem 150 

1190 PRINT :rem 88 

1200 A$="":PRINT F3$;ER1$;F3$; :INPUT"ITEM NO. TO C 

ORRECT";A$ :rem 164 

1210 JJ=VAL(A$) :IFJJ<=0ORJJ>MI-1THEN1200 :rein 141 
1220 PRINT" {CLR}": PRINT "CORRECT ITEM ";A$:PRINT 

:rein 220 
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1230 PRINT"PRESS RETURN IF NO CHANGE: PRINT 

:rem 215 

1240 KK=1 :PRINTL$(3) ; :PRINTTAB( 16)PI$( JJ, 1) ; :INPUT 

PI$(JJ,1) :LL=?LEN(PI$( JJ,1) ) :rem 88 

1250 IFLL>15THENPI${JJ,1)=LEFT$(PI$(JJ,1),15) 

:rein 47 

1260 KK=2:PRINTF2$;" PLANNED AMOUNT" ; :PRINTTAB( 16) P 
I$( JJ,2) ; :IP$=PI$(JJ,2) :reral34 

1270 INPUTPI$(JJ,2) :P$=PI$(JJ,2) :GOSUB2670 : IFEF=1T 
HENPI$( JJ,2)=IP$:GOTO1260 trem 245 

1280 Z$=RIGHT$(P$,3) i IFMID? (Z$ ,1 , 1 )=" . "THEN1300 

:rein 62 

1290 PRINTF2$ ; "ERROR— AMOUNT NOT IN X.XX FORM":SYS 

828 :FORD=1TO1000 :NEXT :rem 169 

1295 P1$(JJ,2)=IP$:G0SUB 5000:GOTO 1260 : rem 134 
1300 PRINT"{CLR}{7 down} ":PRINTTAB( 10) "ANOTHER ITE 

M? (Y/N) :rem 183 

1310 GETA$:IFA$=""THEN1310 :rem 173 

1320 IFA$="Y"THEN1100 irem 133 

1330 IFA$<>"N"THEN1310 :rera 187 

1340 GOSUB20 70 : P RINT : GOSUB2280 : PRINT : I FYR=0THENYR= 

Y trem 118 

1350 GOSUB2530:YI=0:GOTO400 t rem 99 

1360 PRINT " {CLR} " : POKEBO, 2 :POKEBA, 2 :P0KE646 , 1 :PRIN 

TTAB( 15)" {DOWN} DBLET IONS" :FE=1 jPRINT irem 129 
1370 PRINT"MONTH NUMBER (2 DIGITS, 01 TO 12)":INPU 

T"OF REPORT DESIRED" ;M :rem 204 

1380 GOSUB2580:IFE>19THEN400 :rem 148 

1 390 LL=0 :K=14 :PRINT" { CLR} " iPRINTTAB( 16 ) " { DOWN} DEL 

ETIONS": PRINT srem 176 

1400 PRIMT"ITEM NO. "TAB(10)L$( 3)TAB(33)L$( 5) :PRINT 

trem 88 

1410 FORJ=1TOMI-1:PRINTTAB(3)JTAB(10)PI§(J,1) ; 

:rem 225 

1420 PRINTTAB(39-LEN(PI$(J,2)))PI$(J,2) jLL=LL+liIF 
LL=KTHEN1440 :rem 149 

1430 NEXT :IPJ=MITHEN1 480 trem 233 

1440 PRINT:PRINTTAB(9)"PRESS ' C TO CONTINUE 

:rem 198 

1450 GETA$:IPA$<>"C"THEN1450 :rem 55 

1460 LL=0:PRINT"{CLR}":PRINTTAB(15) " {DOWN} DELETION 

S"tPRINT trem 134 

1470 PRINT"ITEM NO. "TAB (10)L$ ( 3)TAB ( 33) L$ ( 5) tPRINT 

:GOTO1430 trem 154 

1480 PRINT I PRINT "PRESS 'C TO CONTINUE OR ANY KEY 

{ SPACE }T0 EXIT trem 184 

1490 GETA$ :IFA$=""THEN1490 trem 191 

1500 IFA$<>"C"THEN400 trem 126 

1510 PRINT trem 84 



CHAPTER 
FOURTEEN 



1520 PRINT F3$;ER1$;F3$; :INPUT"ITEM NO. TO DELETE" 
;A$ :reni 42 

1530 JJ=VAL(A§) :IFJJ<=0ORJJ>MI-1THENPRINT"{3 UP}": 
A$=""iGOTO 1520 :rem 174 

1540 PRINT" {CLR}" SPRINT "DELETE ITEM " ; A$ :PRINTsPI$ 
( JJ,1)="ZZZZZZZZZZZZZZZ :rem 96 

1545 PRINTF1$;"{6 SPACES}PRESS ANY KEY TO CONTINUE 
" I rem 220 

1546 GET R$:IF R$=" " THEN 1546 srem 229 
1550 PI$(JJ,2)="0.00":PRINT"{CLR}{7 DOWN} " :PRINTTA 

B( 10) "ANOTHER ITEM? (Y/N) t rem 55 

1560 GETA$sIFA$=""THEN1560 :rem 187 

1570 IFA$="Y"THENFE=FE+lsGOTO1390 srem 185 

1580 IFA$<>"N"THEN1560 srem 201 

1590 GOSU B20 70 s P RINT s G0SUB2 280 s PRINT s MI»MI-FE s I FYR 

=0THENYR=y srem 216 

1600 GOSUB2530sYI=0 5GOTO400 srem 97 

1610 PRINT"{ CLR } " s POKEBO ,15s POKEBA ,15sPOKE646,llsY 

I=0sYD=0 srem 90 

1620 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)"$INPU 

T''OF REPORT DESIRED" ;M srem 202 

1630 GOSUB2580sIFE>19THEN330 srem 148 

1640 MY=MI srem 68 

1650 IFYR=0THENYR=Y srem 227 

1660 YS$=STR$(YR) 8yS$=MID$(yS$,2) srem 183 

1670 DA$=M${M)+" "+YS$:PN=200+10*M:GOTO1680srem 25 
1680 POKEBO , 5 s POKEBA, 5 s POKE646 , 1 s K=14 sGOSUB1830 sFO 

RJ=1T0MI-1 sPRINTPI$(J,l) ; srem 119 

1690 PRINTTAB(23-LEN(PI$(J,2)))PI$(J,2); sPRINTTAB( 

32-LEN(PI$(J,3)))PI$(J,3); srem 72 

1700 PRINTTAB ( 39-LEN{ PI? ( J , 4)))PI$(J,4)s LL=LL+1 s IF 

LL=KTHEN1720 srem 155 

1710 NEXTsIFJ=>MYTHEN1750 srem 56 

1720 PRINT: PRINTTAB (9) "PRESS ' C TO CONTINUE 

srem 199 

1730 GETA$sIFA$<>"C"THEN1730 srem 57 

1740 GOSUB1830SGOTO1710 srem 84 

1750 PRINTTAB (15) "18 T§ g8 Tl g6 T§" s PRINTTAB ( 5) L$ 

(17)" {3 SPACES}?"; srem 30 

1760 PRINTTAB ( 23-I.EN( PT$ ) )PT$; 5PRINTTAB(32-LEN(TA$ 

))TA$; srem 110 

1770 PRINTTAB ( 39-LEN( GL$ ) )GL$ srem 187 

1780 PRINT" {2 DOWN}HARD COPY (Y/N) ? srem 97 

1790 GETA$sIFA$=""THEN1790 srem 197 

1800 IFA$="N"THEN330 srem 81 

1810 IFA$<>"Y"THEN1790 srem 213 

1820 GOTO1880 srem 213 

1830 LL=0 SPRINT" {CLR} "sPRINTN$TAB( 35) PNsPRINT" {UP} 

"DA$ SPRINT srem 226 

1840 PRINTTAB (13) "PLANNED INCOME" srem 231 
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850 PRINTTAB(13)"gl4 T| : rem 243 

860 PR1NT"FR0M WHOM"TAB( 16 )"PIjANNED"TAB( 26 ) "ACTUA 

L"TAB(35)"+/- 1'^^ 
870 PORL=lT039:PRINT"iT3"; :NEXT: PRINT: RETURN 

:rem 195 

880 OPEN4,4,l:LB$=LEPT$(S$,56-LEN(N$)) :PRINT#4,LA 

$;N$;LB$;PN;LF$ :rem 249 

890 PR1NT#4,LA$;DA$;LF$;LP$:LB$=LEFT${S$,33) jPRIN 

T#4 , LB$ ; " PLANNED INCOME " ;LF$ : rem 84 

900 PRINT#4,LB$;"B11 Tl";LF$ :rem 253 

910 PRINT#4,LA$;"PR0M WH0M{14 SPACES } PLANNED 

{10 SPACES} ACTUAL"; :rem 113 

920 LB$=LEFT$(S$,9) :PRINT#4,LB$;"+/-";LF$ :rem 42 
930 PRINT#4,LA$; jFORL=lT045 jPRINT#4 , "iTl" ; :NEXT:P 

RINT#4,LF$;LF$jF0RJ=lT0My-l :rem 6 

940 PRINT#4,LA$;PI$(J,1) ; irem 186 

950 PC=30-LEN(PI$(J,1))-LEN(PI$(J,2)) :GOSUB2060:P 

RINT#4,LB$;PI$(J,2) ; j rem 209 

960 PC=16-LEN(PI$(J,3)) :GOSUB2060:PRINT#4,LB$;PI$ 

(J, 3) ; trem 198 

970 PC=14-LEN(PI$(J,4)) :GOSUB2060:PRINT#4,LB$;PI$ 

( J,4) ;LF$ :NEXT:IFJ=MYTHENI980 :rem 237 

980 LB$=LEFT$(S$,29) :PRINT#4,LB$;"68 Tl{6 SPACES} 

B8 Tl{6 SPACES} 16 T§";LF$ :rem 221 

990 LB$=LEFT$(S$,15) :PRINT#4,LB$ ;L$ ( 17) ; " 

{3 SPACES} $"; :rem 169 

2000 PC»16-LEN(PT$) t6OSUB2060:PRINT#4,LB$;PT$; 

trem 218 

2010 PC=16-LEN(TA$) :GOSUB2060 >PRINT#4,LB$ ;TA$ ; 

srem 189 

2020 PC»14-LEN(GL$) :GOSUB2060 >PRINT#4 ,LB$ ;6L$ ;LF$ 

:rem 110 

2030 LB$=LEFT$(S$,29) tPRINT#4,LB$;"g8 tH6 SPACES} 

B8 Tl{6 SPACES }g6 Tl";CR$; :rera 14 

2040 PRINT#4,LB$;"DDDDDDDD{6 SPACES } DDDDDDDD 

{6 SPACES } DDDDDD " ;LF? :rem 208 

2050 F0RSP=1T012;PRINT#4,LF? :NEXT:PRINT#4 :CL0SE4 :G 

OTO330 :rem 73 

2060 LB$=LBFT$(S$,PC) tRETURN :rem 167 

2070 PRINT:PRINT"{2 DOWN}SUMMING . . " ; :TA»0 :TL=0 :T 

R=0»PT$=""iFORJ=lTOMI-l:PRINT" ."; :rem 113 
2080 P$=PI$(J,2) :GOSUB2190zTL=TL+PL:TR=TR+PR:NEXT 

:rem 62 

2090 TA=TL+TR:IFTA=0THENPT$="0.00":RETURN :rem 41 
2100 PT$=STR$(TA+.001) :PT$=LEFT§(PT$,LEN(PT$)-1) 

:rem 222 

2110 IFLEFT? ( PT$ , 1 ) =CHR$ ( 32 ) THENPT$=MID$ ( PT$ , 2 ) 

:rem 181 

2120 RETURN :rem 165 
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2130 TA=0:TL=0 :TR=0 :P$=P1$ :GOSUB2190 :TL=PL-1 :TR=PR 

+1:P$=P2$:6OSUB2190 :rem 181 

2140 TL=TL+PL : TR=TR+PR:TA=TL+TR : IFTA=0THENP3$=" 0.0 

0" {RETURN :rem 18 

2150 IFTA<0THENP3$=STR$(TA-.001) :rein 90 

2160 IFTA>0THEl!JP3$=STR$(TA+.001) : rem 91 

2170 P3$=LEFT$(P3$,LEN(P3$)-1) :IFLEFT$(P3$,1)=CHR$ 

( 32)THENP3§=MID$(P3$,2) : rem 30 

2180 RETURN : rem 171 

2190 PL$=LEFT$(P$,LEN(P§)-3) :PIi=VAL(PL$) : rem 20 
2200 PR$=RIGHT$(P$,3) :PR=VAL(PR$) :IFPL<0THENPR=PR* 

-1 :rem 169 

2210 RETURN :rem 165 

2220 TA=0 : TL=0 : TI^0 t P$=P1 $ :G0SUB21 90 : TIi=PL-l : TIt=PR 

+1:P$=NN$+P2$»GOSUB2190 :rem 160 

2230 Tl.=TL+PL:TR=TR+PR:TA=TL+TR!lFTA< .0001ANDTA>- . 

0001THENP3$="0.00":RETURN :rem 146 

2240 IFTA<0THENP3$=STR$(TA-.001) : rem 90 

2250 IFTA>0THENP3$=STR$(TA+.001) : rem 91 

2260 P3$=LEFT$ ( P3$ ,LEN( P3$) -1) > IFLEFT$ ( P3$ , 1 )=CHR$ 

(32)THENP3$=MID$(P3$,2) :rem 30 

2270 RETURN :rem 171 

2280 IFMI=<2THEN2350 :rem 149 

2290 PRINT "NOW SORTING. . " ; iF0RJJ=lT0MI-2 iFORKK=JJ 

+1T0MI-1 :rem 133 

2300 IFPI$(KK, 1)>PI$( JJ,1)THEN2340 : rem 138 

2310 SM$=PI$(KK,1) :RM$=PI$(KK,2) :rem 4 

2320 PI$(KK,1)=PI$( JJ,1) :PI$(KK,2)=PI$( JJ,2) 

:rem 125 

2330 PI$(JJ,1)-SM$:PI$(JJ,2)=RM$ :rem 2 

2340 NEXT: PRINT" .";»NEXT :rem 245 

2350 RETURN :rem 170 

2360 PRINT: PRINT "CLEARING THE WAY ."; : rem 227 

2370 F0RZ=1T0N:F0RK=1T04:PI$(Z,K)="":NEXT:PRINT" . 

:rem 164 

2380 NEXT:PRINT: RETURN irem 237 

2390 GOSUB2360:PRINT: PRINT "LOADING ."; :F$=" INCOME" 

•t-M$(M) :OPEN15,8,15 :rem 52 

2400 0PEN8 , 8 , 8 , "0 : "+F$+" , S , R" : INPUT#8 , Y ,MY , M, TA§ ,N 

$: INPUT* 15, E,E$ :rem 164 

2410 IFE>19THEN2520 :rem 59 

2420 JB=1:LL=0:INPUT#8,I$(JB,1),I$(JB,2),I$(JB,3), 

I$(JB,4),I$(JB,5) :rem 79 

2430 PI$(JB,1)=I$(JB,3) :PI$(JB,2)=I$(JB,5) :PI$(JB, 

3)="":PI$(JB,4)=" :rem 7 

2440 IFMY=<2THEN2520 :rem 162 

2450 F0RJD=2TOMy-l :INPUT#8 , II $ , 12? , 13$ , 14$ ,15$ :FOR 

JC=1T0JD :rem 196 

2460 P1$=PI$(JC,2):P2$=I5$ :rem 102 
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2470 IFPI$(JC,1)=I3$THENGOSUB2130:PI$(JC,2)=P3$:LL 

=IjL+1:JC=JD:NEXT:GOTO2510 :rem 6 

2480 NEXT trem 13 

2490 JB=JB+1:PI$( JB,1)=I3$:PI$( JB,2)=I5$ :PI$( JB,3) 

="":PI$(JB,4)=" :rein 230 

2500 PRINT" . "; :rem 1 

2510 NEXT:MY=MY-LL : rem 143 

2520 CLOSES :CL0SE1 5 -.RETURN : rem 167 

2530 PRINT "I'M SAVING . . " ; :F$="PLNINC"+M$ (M) sOPEN 

15,8,15 :PRINT#15, "S0:"+F$ :rem 180 

2540 CLOSE15jOPEN8,8,8, "0: "+F$+" ,S ,W" :PRINT#8, YR" , 

"MI", "M", "PT$CHR$(13) : rem 157 

2550 F0RJB=1T0MI-1 :rem 68 

2560 PRINT#8,PI$( JB,1)", "PI$( JB,2)", "PI$(JB,3)", "P 

I$(JB,4)CHR$(13) :PRINT" ."; :rem61 
2570 NEXT:CLOSE8:GOSUB2630:RETURN :rem 148 

2580 GOSUB2360:TA$="":GL$="":PRINT:PRINT "LOADING . 

"; :P$="PLNINC"+M$(M) :rem 92 

25 90 OPENS , 8 , 8 , " : " +F$+ " , S , R " : INPUT#8 , YR, MI , M , PT$ j 

F0RJB=1T0MI-1 :rem 186 

2600 INPUT#8,PI$(JB,1),PI$(JB,2),PI$(JB,3),PI$(JB, 

4):PRINT" .";:NEXT :rem 50 

2610 CL0SE8 :GOSUB2630 :rem 252 

2620 RETURN :rem 170 

2630 E=0:OPEN15,8,15:INPUT#15,E,E$ :rem 158 

2640 IFE>19THENPRINT I PRINTS? :SYS828 :PORD=1TO5000 :N 

EXT I rem 195 

2650 CLOSEl 5: RETURN :rem 195 

2660 PRINT :PRINT "DATA MISSING" : SYS828 :FORD=1TO5000 

:NEXT:GOTO330 :rem 50 

2670 EF=0:L1=LEN(P$) :F0RL=1T0L1 :T$=MID${ P$ ,L, 1) :AB 

=ASC(T$) :IFAB=46THENNEXT : rem 220 

2680 IFAB< 480RAB> 57THENL=Iil :EF=1 :PRINTF2$ ; ER1$ ; F2$ 

; "ERROR IN INPUT" : SYS828 :rem 44 

2690 GOSUB 5000: NEXT: RETURN :rem 169 

2700 P0KEBO,15 :POKEBA, 15 :P0KE646, 11 tPRINT" {CLR}" 

:rem 206 

2710 YD=0:IPyi=l THEN1680 :rem 171 

2720 PRINT "{DOWN} PLANNED INCOME FOR " ; YR$ :MM=12 :G0 
SUB2780 :rem 90 

2730 PRINT: PRINT "SAVING INCOME FOR YEAR FILE 

:rem 77 

2740 F$="PLNINC"+" "+YR$ :OPEN15,8,15 :PRINT#15, "30: 

"+F$:CL0SE15:AA=VAL(YR$) :rem 209 

2750 0PEN8 , 8 , 8 , " : " +F$ + " , S , W " : P RINT#8 , AA " , " MY " , " PU 

$" , "CHR$ ( 13 ) :F0RKK=1T0MY-1 : rem 241 

2760 PRINT" ."; :PRINT#8,PI$(KK,1)","PI$(KK,2)","PI 

$(KK,3)", "PI$(KK,4)CHR$(13) :rem 103 

2770 NEXT : CL0SE8 :TA$=" " :GL$=" " :YI=1 :P»=110 : DA$=YR$ 

:GOTO1680 :rem 255 
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2780 GOSUB2360:OPEN15,8,15sPRINT»PRINT"LOADING PLA 

NNED INCOME FOR: irem 112 

2790 M=1:F$="PLNINC"+M$(M) :PRINTM$(M), :0PEN8,8,8, " 

0:"+F$+",S,R :rein 215 

2800 INPUT#8,Y,M5r,M,PT$ :rem 121 

2810 JB=l:LL=0sINPUT#15,B,E? :reni 93 

2820 IFE> 19THENPRINT :PRINTE$ : SYS828 :FORD=1TO5000 iN 

EXT:CIjOSE8 :CL0SE15 :GOTO3000 : rem 247 

2830 INPUT#8,PI$(JB,1),PI$(JB,2),PI$(JB,3),PI$(JB, 

4) :IFMY=<2THEN2890 : rem 102 

2840 F0RJD=2T0MY-1 : INPUT#8, 11$ , 12$ , 13$ , 14$ :F0RJC=1 

T0JD:P1$=PI$(JC,2) :P2$=I2$ :rem 202 

2850 IFPI$(JC,1)=I1$THENGOSUB2130:LL=LL+1:PI$(JC,2 

)=P3$:JC=JD:NBXT:GOTO2880 :rein 16 

2860 NEXT :rein 15 

2870 JB= JB+1 :PI$ ( JB, 1 )=I1$ :PI$ ( JB, 2 )=I2$ :PI$ ( JB, 3 ) 

=I3$:PI$(JB,4)=I4$ :rem 190 

2880 NEXT:MY=My-LL :rem 153 

2890 CLOSE8:CLOSE15:IFMM=1THEN2990 :rein 107 

2900 0PEN15 ,8,15 iF0RM=2T0MM:F$=" PLNINC "+M$ (M ) :OPEN 

8,8,8, "0:"+F$+",S,R :rem 187 

2910 INPUT#8,Y,MI,M,PT$ :INPUT#15,E,E$ :IFE>19THENM= 

MMtGOTO2980 :rem 19 

2920 PRINTM$(M), :F0RJB=1T0MI-1:INPUT#8,I1$,I2$,I3$ 

, 14$ :F0RJC=1T0MY-1 : rem 93 

2930 P1$=PI$(JC,2) :P2$=I2$ :rera 101 

2940 IFPI$(JC,1)=I1$THENGOSUB2130 :PI$( JC , 2 )=P3$ s JC 

=MY-1 :NEXT:GOTO2970 :rem 131 

2950 NEXT:PI$(MY,l)=Il$:PI$(MY,2)=I2$:PI$(My,3)=I3 

$:PI$(MY,4)=I4$ :rem 179 

2960 MY=MY+1 :rem 182 

2970 NEXT :rem 17 

2980 CLOSES :NEXT tram 250 

2990 CLOSE15:MI=My:GOSUB2070:PRINT:PU$=PT$:GOSUB22 

80:PRINT :rem 2 

3000 RETURN :rem 163 

3010 P0KEB0,2 :P0KEBA,2 :POKE646,l :PRINT" {CLR} 

{3 DOWN} "jPRINTTAB( 10) "COMPARATIVE REPORTS 

:rein 63 

3020 PRINTTAB(8)"{2 D0WN}1.{2 SPACES } MONTH " :PRI NTT 
AB(8)" {DOWN}2.{2 SPACES}YEAR TO DATE":yi=0 

:rem 20 

3030 PRINTTAB(8)"{DOWN}3.{2 SPACES } PLANNED INCOME 

{ SPACE }MENU": PRINT :rem 34 

3040 PRINTTAB( 10) "PRESS DESIRED NUMBER" :rem 119 
3050 GETA$:IFA$=""THEN3050 :rem 179 

3060 IPA$<"1"ORA$>"3"THEN3050 :rem 32 

3070 AA=VAL{A$) :ONAAGOTO3080, 3260, 330 :rem 56 

3080 POKEBO , 9 : POKEBA , 9 : POKE646 , 1 : PRINT " { CLR } 

{3 DOWN}" -rem 120 
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3090 INPUT "MONTH NUMBER (2 DIGITS, 01 TO 12)";MjPR 
INT:GOSUB2580 :IFE>19THEN2660 :rem 84 

3100 GOSUB3180 :IFE>19THEN2660 : rem 195 

3110 TA$=TB$ :P1$=TA$ :P2$=PT$ :GOSUB2220 sGL$=P3$ :MY= 
MI trem 55 

3120 DA$=M$(M)+" "+YR$iPN=200+10*M:GOTO1680:rein 16 
3130 IFPI$(JC,3)=""THENPI$(JC,3)=I5$:GOTO3160 

srem 22 

3140 P1$=PI$(JC,3) :P2$=I5$:GOSUB2130:PI${JC,3)=P3$ 

:rem 251 

3150 IFPI$(JC,2)=""THENPI$(JC,4)=PI$(JC,3) :GOT0317 

:rem 113 

3160 P1$»PI$(JC,3) :P2$=PI$(JC,2) :GOSUB2220 :PI$( JC, 

4)=P3$ :reni 85 

3170 JC=MI-1:NEXT:GOTO3250 :rem 63 

3180 0PEN15,8,15jF$="INC0ME"+M$(M) :0PEN8,8,8, "0: "+ 

F$+",S,R :rem 153 

3190 INPUT#8,Y,MA,M,TB$,N$:INPUT#15,E,E$:IPE>19THE 

NCIiOSE8:CLOSE15: RETURN :rem 16 

3200 PORJB=1TOMA-1 :PRINT" . " ; :INPUT#8 ,I1$,I2§ , 13$ , 

I4$,I5$:F0RJC=1T0MI-1 :reni 125 

3210 IFPI$(JC,1)=:I3$THEN3130 trem 32 

3220 IFPI$(JC,4)=""THENPI$(JC,4)=NN$+PI$(JC,2) 

:rem 29 

3230 NEXT :rem 7 

3240 PI$(MI,1)=I3$:PI$(MI,2)="":PI?{MI,3)=I5$ :PI$( 

MI,4)=I5$:MI=MI+1 trem 156 

3250 NEXTt CLOSES tCLOSEl 5 t RETURN trem 33 

3260 P0KEB0,7tP0KBBA,7iP0KE646,ll trem 212 

3270 E=*04PSINT"{CLR}" trem 28 

3280 INPUT''MONTH (2 DIGITS) ";MMtIFMN=MMANDYD=lTHEN 

1680 trem 90 

3290 INPUT "DAY (2 DIGITS)" ;DD$ tTAS=" "tDB$=DD$+" "+ 

M$(MM)+" "+YR$ trem 78 

3300 DA$="UP TO "+DB$tPRINT"{CLR)"tPRINT "COMPARE P 

lANNED INCOME TO"tPRINTDB$ trem 142 

3310 GOSUB2780tIFE>19THBN2660 trem 203 

3320 FORM=lTOMMtGOSUB3180 tIFE> 19THENM=MMtNEXTtG0T0 

2660 trem 240 

3330 IFTA$=""THENTA$=TB$ tGOTO3350 trem 175 

3340 Pl$=TA$tP2$=TB$tGOSUB2130tTA$-P3$ trem 147 
3350 NEXTt PI $=TA$ tP2$spT$ tGOSUB2220 tGL$»P3$ tMY=MI t 

YD=ltMN=MMtPN=lll trem 101 

3360 GOTO1680 trem 212 

3370 POKEBO,14tPOKEBA,6tPOKE646,14 trem 6 

3380 PRINT"{CLR}{6 DOWN} " tPRINTTAB ( 12) "REMOVE DATA 
DISK"tPRINT trem 8 

3390 PRINTTAB ( 18) "AND "t PRINT tPRINTTAB (10) "INSERT P 

ROGRAM DISK"tPRINTtPRINT"{4 DOWN} trem 107 
3400 PRINTTAB (9) "PRESS 'C TO CONTINUE trem 253 
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3410 GETA$sIFA$=""THEN3410 :rem 179 

3420 IFA$<>"C"THEN3410 irem 181 

3430 POKE631,83:POKE632,89:POKE633,83 :rem 103 
3440 P0KE6 34,53: P0KE6 35,49: POKE63 6 , 48 : P0KE6 3 7 , 48 : P 

OKE638,48:POKE639,13 :rein 73 

3450 POKE198,9:NEVf :rein 38 

5000 REM FORMAT :rein 114 

5010 PRINT F1$;ER1$;F2$;ER1$;F3$:RETURN :rein 5 



PLANNED EXPENDITURES 

Remember to use the name above for the program you place on the PAM master disk. 

20 BO«53280tBAa53281 irem 47 

30 N=100 1 FEa0 : F1b0 t Dla0 1 I1b0 t Y»0 t Ml^l t Ms0 1 LIjb0 : YEs 
0:TA=>0:TL»0 :PH=0:YF»0 trem 200 

40 TR=0:PR=4(:PL=0:ME=1jMY»1:MM=0 :rem 204 

50 Els0:E2a0 :E3s0:E4»0 :EE=0 :AAa0:TE=0 trem 63 

60 LF$=>CHR$(10) :CR$=CHR§(13):SP$=CHR$(32) :1IC=80 

:rem 87 

70 s$'=" " iFORSP=lTONC : S$=S$+SP$ :NEXT: LA$=LEFT$ ( S$ , 1 
«) iLB§=""»RA$=" trem 30 

75 F1$="{H0ME}{16 DOWN} " : ER1$=" {43 SPACES}":rem 82 
77 F2§=" {H0ME}{14 DOWN} " :F3$=F2$+" {2 UP}" : rem 205 
80 N$»" " :N1$=" " :N2$=" " :N3$=" " :N4$=" " :SM$=" " :RM$=" " 
,F$ni"",Ri§=" :rein 83 

90 GB$=" " :PU$=" " : DA$=" " :DB$=" " i TE$=" " : RE$=" " : RC$=" 

:rein 39 

100 Il$=" " : I2$=" " : I3§=" " : 14$=" " : I5$=" " : Pl$=" " :P2$= 
"":P3$=" :rein 31 

110 El§=" " : E2$=" " : E3$=" " : E4§=" " : E5§=" " : E6§=" " : E$=" 

:rem 103 

120 P$=" " :PL$=" " :PR$=" " : A$=" " : Z$=" " :NN$=" -" :DIMLS ( 
30),M$(12) :rein 14 

130 DIMNE$(60),DE$(25),OE$(15),CE$(40) trem 149 

140 DIMNE(60),DE(25),OE(15),CE(40) :DIME$ ( 100 ,6 ) , PE 
$(100,4) :rem 238 

150 DIMRB$(12,4) :M$ ( 1)=" JANUARY" :M$ ( 2)="FEBRUARY 

srem 241 

^^0 M$ ( 3 ) = "MARCH " : M$ ( 4 ) = " APRIL " : M$ ( 5 ) = "MAY" : M$ ( 6 ) = 
"JUNE :rem 253 

170 M$(7)="JULY":M$(8)="AUGUST :rein 194 

180 M$(9)»"SEPTEMBER":M$( 10)= "OCTOBER :rem 134 

190 M$ ( 1 1 ) = "NOVEMBER " : M$ ( 1 2 ) = "DECEMBER " : POKEBO , 5 : P 
OKEBA,5:P0KE646,l :rem 194 

200 PRINT"{CLR}(3 DOWN} " tPRINTTAB( 10) "PLANNED EXPE 
NDITURES":FORD=1TO5000:NEXT trem 19 

210 POKEBO, 14 iP0KEBA,6iP0KE646, 14 :rem 204 
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220 PRINT"{CLR}{6 DOWN} "jPRI1JTTAB( 10) "REMOVE PROGR 
AM DISK''iPRINT irem 202 

230 PRIMTTAB(18)"AND"jPRINTjPRINTTAB(12)"INSERT DA 
TA DISK"jPRINTjPRINT"{4 DOWN) irem 53 

240 PRINTTAB(9)"PRESS 'C TO CONTINUE srem 204 

250 GETA$tIFA$<>"C"THEN250 :rem 209 

260 POKEBO,15:POKEBA,15iPOKE646,0 trem 205 

270 PRINT"{CLR}{2 DOWN} ":PRINTTAB( 10) "PLANNED EXPE 
NDITURES": PRINT: PRINT :rem 227 

280 PRINT"IOADING PERSONAL DATA " ; :F$="PERSDATA 

trem 121 

290 OPENS , 8 , 8 , " J " +F$ + " , S , R " : INPUT#8 , YR$ , N$ , Nl$ , N2 

$,N3$,N4$tPRINT" ."; trem 28 

300 PORJ=1TO30:INPUT#8,L$( J) tNEXTtPRINT" .";tCLOSE 

8tGOSUB3090:IFE>19T[IEN210 trem 103 

310 F$="EXPDATA" :0PEN8 , 8 , 8 , "0 : "+F$+ " , S , R" : INPUT#8 , 

E1,E2,E3,E4:PRINT" . "; trem 244 

320 F0RJ=1T059:INPUT#8,NE$( J) ,NE( J) tNEXTtPRINT" ." 

; trem 47 

330 FORJ«lT025tINPUT#8,DE$( J),DE(J) tNEXT trem 161 
340 PRINT" . "; :F0RJ=lT015tINPUT#a,0E$(J),0E(J) tNEX 

TtPRINT" . " ; tFORJ=lT039 trem 135 

350 INPUT«8,CE$(J),CE( J) tNEXTtPRINT" . " ; tCLOSES tOO 

SUB3090iIFE>19THEN210 trem 24 

360 POKEBO,15tPOKEBA,15tPOKE646,0tPRINT"(CLR} 

{3 DOWN} "tPRINTTAB( 10) "PLANNED EXPENDITURES 

trem 179 

370 PRINTTAB(8)"{D0WN}1. ENTER/CHANGE DATA"tPRINTT 
AB(8)" {D0WN}2. VIEW PLAN FOR MONTH trem 53 

380 PRINTTAB(8)"{DOWN}3. VIEW PLAN FOR YEAR"tPRINT 
TAB(8)" {D0WN}4. COMPARE trem 127 

390 PRINTTAB(8)"{DOWN}5. MIN REQD BALANCE " tPRINTTA 
B(8)" {D0WN}6. MAIN MENU trem 79 

400 PRINTTAB(10)"{3 DOWN} PRESS DESIRED NUMBER 

trem 85 

410 GETA$:IFA$=""THEN410 trem 77 

420 IFA$<"1"ORA$>"6"THEN410 trem 189 

430 AJ^VAL( A$) tONAAGOTO440 , 1830 , 3180 , 3490 , 3860 , 420 

trem 244 

440 PRINT"{CLR}{3 DOWN} " tPOKEBO , 15 : POKEBA, 15 tP0KE6 

46, 0tPRINTTAB( 12) "ENTER/CHANGE DATA trem 127 
450 PRINTTAB{11)"{D0WN}1. START NEW MONTH" tPRINTTA 

B(ll)" {D0WN}2. ADD NEW EXPENSE trem 17 

460 PRINTTAB(11)"{D0WN}3. CORRECTIONS " tPRINTTAB( 11 

)"{D0WN}4. DELETE trem 75 

470 PRINTTAB(11)"{D0WN}5. PLANNED EXP MENU"tPRINTT 

AB(10)"{4 D0WN}PRESS DESIRED NUMBER trem 154 
480 GETA$tIFA$=""THEN480 trem 91 

490 IFA$<"1"ORA$>"5"THEN480 trem 202 
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500 A;^VAL(A$) tONAAGOTO510, 740, 1290, 1580, 360 

:rera 147 

510 PRINT" { CLR} " iPOKEBO , 15 :POKEBA, 15 t POKE646 , 11 : TE 

§=""jGE$=" :rein 92 

520 PRINT" STARTING NEW MONTH" J INPUT "MONTH NUMBER ( 

2 DIGITS, 01 TO 12)" ;M trem 3 

530 PRINT: INPUT "FOR YEAR" ;YR:PRINT "COPY LAST YEAR' 

S? (Y/N) rrem 154 

540 GETA$ :IFA$-""THEN540 irem 85 

550 IFA$="N"THEN730 ;rem 38 

560 IFA$<>"Y"THEN540 :rem 110 

570 PRINT:PRINT"INSERT DATA DISK. {2 SPACES}PRESS ' 

C WHEN READY. ":GOSUB710jPRINT jrem 136 

580 PRINTtPRINTTAB(ll)"l.{2 SPACES} PLANNED"! PRINT t 

PRINTTAB{11)"2.{2 SPACES } ACTUAL EXPENSE 

:rein 140 

590 PRINT :PRINTTAB( 10) "PRESS DESIRED NUMBER 

:rein 243 

600 GETA$:IFA$=""THEN600 :reni 79 

610 IFA$<"1"ORA$>"2"THEN600 :rein 187 

620 AA=VAL(A$) :ONAAGOTO630,670 trem 228 

630 GOSUB3040:IFE>19THEN440 :rem 93 

640 PRINT :PRINT" INSERT NEXT YEAR'S DATA DISK. 

{2 SPACES} PRESS 'C'VfflEN READY. : rem 53 

650 GOSUB710:GOSUB2990tIFE>19THEN440 :rein 190 

660 GOTO360 trem 110 

670 GOSUB2840 iIFE>19THENPRINTtPRINTE$ t SYS828 iFORD= 

lTO5000:NEXTt6OTO440 :rem 39 

680 PRINT: PRINT "INSERT NEXT YEAR'S DATA DISK. 

{2 SPACES} PRESS 'C'WHEN READY. :rem 57 

690 GOSUB710 : ME^MY : PE$aTE$ :GOSUB2990 : I FE> 19THEN440 

:rem 94 

700 GOTO360 :rem 105 

710 GETA$:IFA$<>"C"THEN710 trem 211 

720 RETURN trem 121 

730 P0KEB0,15 tPOKEBA, 15 :POKE646,0 :ME=1 :GOSUB2810 :G 

OTO760 :rem 158 

740 POKEBO, 15 tPOKEBA, 15 :P0KE646 ,0 tPRINTTAB ( 13 ) " 

(CLR} {2 DOWN}ADD NEW EXPENSE trem 197 

750 INPUT"MONTH NUMBER (2 DIGITS, 01 TO 12)";M:G0S 

UB3040:IFE>19THEN440 :rem 31 

760 FORJ=METONtPRINT"{CLR} {2 D0WN}ALWAYS USE STAND 

ARD ACCOUNT NUMBER. " t PRINT trem 40 

770 PRINT:PRINTTAB(13)" {2 DOWN}ADD NEW EXPENSE "t PR 

INT" { DOWN} ITEM NO. " ;J:PRINT:K=1 :rem 4 

780 PRINT"IF DESIRED, PRESS ' F' (RETURN) FOR 

trem 66 

790 PRINT "LIST OF STANDARD ACCOUNT NUMBERS: rem 154 
800 PRINT:PRINTL$(6) ; trem 30 

810 INPUTE6$tIFE6$=""THEN810 trem 121 
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820 IFE6$=>"F"THENGOSUB1100:GOTO800 :rein 11 

830 E&=VAL(E6$) :IFEE<60THBN1000 :rem 26 

840 IFEE=»60ANDEE<85THEN1020 :rem 142 

850 IFEE»>85ANDEE<101THEN1040 : rem 189 

860 IFEE>100THEN1060 srem 124 

870 LL=»IiEN(PE$(J,l)) iIFLL>15THENPE$(J,l)=LEFT$(PE$ 
(J,l),15) :rein 90 

880 K=2 :rem 90 

890 PRIMTF1$ER1$F1$;" PLANNED AMOUNT"; irem 224 

900 INPUTPE§(J,K) :IFPE$(J,K)=""THEN890 srem 217 
910 P$=PE$( J,2) :GOSUB3120tIFEF=lTHEN890 :rem 15 
920 Z$»RIGHT$(P$,3) iIFMID$ (Z$ ,1 , 1) "THEN940 

:rem 231 

930 PRINTP1$ER1$F1§; "ERROR — AMOUNT NOT IN X.XX FOR 
M"tSYS828:FORDslTO1000:NEXT trem 255 

935 GOSUB 5000:GOTO 890 irem 250 

940 ME-ME+1:PRINT"{CLR}{7 DOWN} " :PRINTTAB ( 10) "ANOT 
HER ITEM? (Y/N) trem 135 

950 GETA$:1FA$=""THEN950 srem 95 

960 IFA$="N"THENJ=NsGOTO980 srem 122 

970 IFA$<>"Y"THEN950 srem 120 

980 NEXTSGOSUB2620 sPRINTsGOSUB2730 sPRINTsGOSUB2990 
$IFE>19THEN440 srem 131 

990 YE»0sMY»MEsGOTO1870 srem 159 

1000 F0RJE»lTO59sIFNE(JE)»VAL(E6$)THENPE$(J,K)aNE$ 

(JE) srem 208 

1010 NEXTSGOTO1080 srem 61 

1020 FORJE=!lT025sIFDE(JE)=VAL(E6$)THENPE$(J,K)»DE$ 

(JE) srem 183 

1030 NEXTSGOTO1080 srem 63 

1040 FORJE=1T015 :IFOE( JE)=VAL(E6$)THENPE$( J,K)=OE$ 

(JE) srem 206 

1050 NEXTSGOTO1080 srem 65 

1060 FOn7E=lT039sIFCE(JE)»VAL(E6$)THENPE$(J,K)»CE$ 

(JE) srem 190 

1070 NEXT :GOTO1080 srem 67 

1080 IFPE$( J,K)=""THENPRINTsPRINT"INVALID ACCOUNT 

{ SPACE }NUMBER"sSYS828:GOTO800 srem 46 

1090 GOTO870 srem 162 

1100 PRINT"{CLR}(3 DOWN} "sPRINTTAB( 8) "STANDARD ACC 

OUNT NUMBERS "s PRINT sLL»0 srem 68 

1110 PRINTTAB( 8 ) "ACT "TAB( 1 3 ) "EXPENSE " sPRINT 

srem 123 

1120 PRINTTAB(10)"1. "TAB(13)L$(25)sLL=LL+l srem 52 
1130 FOREX=lTO59sIFNE$(EX)=""THEN1150 srem 173 

1140 PRINTTAB(8)NE(EX)TAB(13)NE$(EX) sLIi»LI/4-l sIFLL» 

>14THENGOSUB1250 srem 32 

1150 NEXTsPRINTsPRINTTAB(10)"2. "TAB(13)L$(26) sLI^L 

L+1 srem 121 

1160 FOREXslTO25sIFDE$(EX)=""THEN1180 srem 162 
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1170 PRZMTTAB(8)DE(EX)TAB(13)DE$(EX) iLL^LL+l :IFLIi« 

>14THBNGOSUB1250 trem 15 

1180 NEXTtPRZMTtPRINTTAB(10)"3."TAB(13)L$(27) tLL^L 

L+2 srem 127 

1190 POREX=1TO15:IPOE$(EX)=""THEN1210 trem 169 

1200 PRINTTAB(8)OE(EX)TAB(13)OE$(EX) : L]>LL+1 : 1 FLL=< 

>14THENGOSUB1250 :reni 31 

1210 NE)CTtPRINTtPRINTTAB(10)"4. "TAB( 13) L$( 28) tLI/=L 

L*2 :rem 123 

1220 POREX=1TO39:IFCE$(EX)=""THEN1240 :rem 160 

1230 PRINTTAB(7)CE(EX)TAB(13)CE$(EX) jLL=IiL+l :IFLL= 

>14THENGOSUB1250 trem 9 

1240 NEXT trem 6 

1250 PRINT tPRINTTAB( 9) "PRESS ' C TO CONTINUE 

trem 197 

1260 GETA$tIFA$<>"C"THEN1260 trem 53 

1270 PRINT " { CLR} { DOWN } " t LL«0 1 PRINTTAB ( 8 ) " STANDARD 

{ SPACE } ACCOUNT NUMBERS trem 65 

1280 PRINTTAB (8) "ACT "TAB ( 13 ) "EXPENSE" t PRINT t RETURN 

trem 157 

1290 PRINT" ( CLR} " tPOKEBO , 10 tPOKEBA, 10 tPOKE646 , 1 tPR 
INTTAB(15)" {DOWN }CORRECTIONS": PRINT trem 82 

1300 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)"tINPU 
T"OF REPORT DESIRED ";M trem 197 

1310 GOSUB3040tIFE>19TIiEN440 trem 137 

1320 LL=0:K=14:PRINT"{CLR}"tPRINTTAB(15)" {D0WN}C0R 
RECTIONS"! PRINT trem 76 

1330 PRINT"ITEM NO. "TAB ( 10)L$ ( 6)TAB ( 33) L$ ( 5) tPRINT 

trem 93 

1 340 F0RJ=1T0ME-1 1 P RINTTAB ( 3 ) JTAB (10)PE$(J,1); 

trem 219 

1 350 P RINTTAB ( 39-LEN( PE$ ( J , 2 ) ) ) PE$ ( J , 2 ) t LD=LU-1 1 1 F 
LL=>KTHEN1370 trem 207 

1360 NEXTtIFJBHETHEN1410 trem 224 

1370 PRINT t PRINTTAB (9) "PRESS ' C TO CONTINUE 

trem 200 

1380 GETA$tIFA$<>"C"THEN1380 trem 59 

1390 LL=0 tPRINT" {CLR}" t PRINTTAB (15) " {DOWN}CORRECTI 
ONS"t PRINT trem 44 

1400 PRINT"ITEM NO. "TAB (10) L$ ( 6) TAB (33) L$ ( 5) tPRINT 
•6OTO1360 trem 152 

1410 PRINT trem 83 

1420 A$»""tPRINTFl$;ERl$;Fl$; t INPUT "ITEM NO. TO CO 
RRECT";A$ trem 164 

1430 JJ=VAL(A$) »IPJJ<=0ORJJ>ME-1THEN1420 trem 145 
1440 PRINT "{CLR} "tPRINT "CORRECT ITEM ";A$ tPRINT 

trem 224 

1450 PRINT"PRESS RETURN IF NO CHANGEt " tPRINT 

trem 219 
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1460 KK=1 :PRINTL$(6) ; :PRINTTAB( 16)PE$( JJ,1) ; iINPUT 
PE$( JJ,1) iLL=LEN(PE$( JJ,1) ) : rem 83 

1470 IFLL> 15THENPE$ ( JJ « 1 )aLEFT$ ( PE$ ( JJ , 1 ) , 15 ) 

trem 43 

1480 KK=2»PRINTF1$ER1$F1$" PLANNED AMOUNT" ; tPRINTTA 
B(16)PE$( JJ,2) ; :EP$=PE$( JJ,2) :rein 201 

1490 INPUTPE$( JJ,2) :P$=PE$( JJ,2) tGOSUB3120 :IFEF=1T 
HENPE$(JJ,2)=EP$:GOTO1480 :rem 228 

1500 Z$aRI6HT$(P$,3) tIFMID$(Z$,l,l)s". "THEN1520 

:rein 61 

1510 PRINTF1$ER1$F1$; "ERROR— AMOUNT NOT IN X.XX FO 

RM":SYS828:FORD=1TO1000 : rem 177 

1515 PE$( JJ,2)sEP$ iGOSUB 5000 :GOTO 1480 trem 125 
1520 PRINT"{CLR}{7 DOWN} " :PRINTTAB ( 10) "ANOTHER ITE 

M? (Y/N) I rem 187 

1530 GETA$:IFA$=""THEN1530 :rem 181 

1540 IFA$s"Y"THEN1320 trem 141 

1550 IFA$<>"N"THEN1530 trem 195 

1560 GOSUB2620 :PRINTtGOSUB2730 :PRINTtIFYR=0THENYR= 

Y trem 123 

1570 GOSUB2990 tYE»0 :GOTO440 trem 113 

1580 PRINT " {C3jR} " f POKEBO, 2 tPOKEBA, 2 t POKE646 , 1 tPRIN 

TTAB(15)"{D0WNlDEI,ETI0NS"tFE=l tPRINT trem 133 
1590 PRINT"MONTH NUMBER (2 DIGITS, 01 TO 12)"jINPU 

T"OF REPORT DESIRED" ;M trem 208 

1600 GOSUB3040:IFB>19THEN440 trem 139 

1610 LL=0 tK=14 t PRINT" { CLR) " tPRINTTAB( 15 ) " {DOWN} DEL 

ETIONS"f PRINT trem 170 

1620 PRINT"ITEM NO. "TAB( 10)L$( 6)TAB( 33) L$( 5) tPRINT 

trem 95 

1630 FORJ-lTOME-1 tPRINTTAB( 3) JTAB( 10)PE$( J , 1) ; 

trem 221 

1640 PRINTTAB(39-LEN(PE$(J,2)))PE$(J,2) tLL=>LU-l>IF 
LIisKTHEN1660 trem 149 

1650 NEXT: IFJ»METHEN1 700 trem 228 

1660 PRINT fPRINTTAB( 9) "PRESS ' C TO CONTINUE 

trem 202 

1670 GETA$tIFA$<>"C"THEN1670 trem 63 

1680 LL=0tPRINT"(CLR}"iPRINTTAB(15)" (DOWN} DELETION 

S"tPRINT trem 138 

1690 PRINT"ITEM NO. "TAB (10)L$ ( 6)TAB ( 33) L$ ( 5) tPRINT 

:GOTO1650 trem 165 

1700 PRINTtPRINT "PRESS ' C TO CONTINUE OR ANY KEY 

{ SPACE }T0 EXIT trem 179 

1710 GETA$tIPA$=""THEN1710 trem 181 

1720 IFA$<>"C"THEN440 trem 134 

1730 PRINT trem 88 

1740 A$=""iPRINTFl$ERl?Fl§; tINPUT"ITEM NO. TO DELE 

TE"jA$ trem 212 

1745 JJaVAL(A$) tIFJJ<=0ORJJ>ME-lTHEN1740 trem 159 
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1750 PRINT "{CLR}" J PRINT "DELETE ITEM ";A$:PRINT 

:rem 133 

1755 PRINTFl$;"l3 DOWN} {6 SPACES}PRESS ANY KEY TO 

{ SPACE ICONTINUE" :rem 18 

1756 GETR$sIPR$="" THEN 1756 :rem 235 
1760 PE$(JJ,1)="ZZZZZZZZZZZZZZZ":PE$(JJ,2)="0.00": 

PRINT" {CLR} {7 DOWN} J rem 248 

1770 PRINTTAB( 10) "ANOTHER ITEM? (Y/N) : rem 173 

1780 6ETA$ :IFA$b""THEN1780 :rem 195 

1790 IFA§="Y"THENFE=FE+1jGOTO1610 :rem 184 

1800 IFA$<>"N"THEN1780 :rem 200 

1810 6OSUB2620tPRINTtGOSUB2730:PRINT:ME=ME-FE:IFYR 

s0THENYI^Y :rem 204 

1820 GOSUB2990:YE=0iGOTO440 : rem 111 

1830 PRINT" ( CLR} " tPOKEBO , 15 iPOKEBA, 15 sP0KE646 , 11 1 Y 

Fs0tYE=0 >rem 92 

1840 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)"tINPU 

T"OF REPORT DESIRED ";M :rem 206 

1850 GOSUB3040tIFE>19THEN360 irem 147 

1860 MY=ME :rem 68 

1870 IFYR««THENYft=Y :rem 231 

1880 YS$=STR$(YR) iYS$»MID$(YS$,2) :rem 187 

1890 DA$=M$(M)+" "+YS$:PN^201+10*M:GOTO1900:rem 25 
1900 P0KEB0,15 :POKEBA, 15 :POKE646,0 :K»13 :GOSUB2050: 

FORJalTOMY-ltPRINTPE$(J,l) ; t rem 217 

1910 PRINTTAB ( 23-LEN( PE$ ( J , 2 ) ) ) PE$ ( J , 2 ) ; :PRINTTAB ( 

32-LEN(PE$(J,3)))PE$(J,3) J »rem 51 

1920 PRINTTAB ( 39-LEN( PE$ ( J,4 ) ) ) PE$ ( J,4 ) tLL»LL-«-l :IF 

LL=>KTHEN1940 :rem 155 

1930 NEXT»IFJ=>MYTHEN1970 :rem 64 

1940 PRINTiPRINTTAB(9)"PRESS 'C TO CONTINUE 

:rem 203 

1950 GETA$tIFA$<>"C"THEN1950 :rem 65 

1960 GOSUB2050:GOTO1930 trem 87 

1970 PRINTTAB (15) "18 Tl g8 T3 g6 Tl" j PRINTTAB ( 5) L$ 

(17)" {2 SPACES }$"; jrem 34 

1980 PRINTTAB ( 23-LEN( PE$ ) ) PE$ ; tPRINTTAB ( 32-LEN( TE$ 

))TE$; trem 92 

1990 PRINTTAB ( 39-I<EN( GE$ ) )GE$ trem 177 

2000 PRINT" {2 DOWN}HARD COPY (Y/N) ? :rem 83 

2010 GETA$iIPA$=""THEN2010 irem 169 

2020 IFA$="N"THEN360 rem 79 

2030 IFA$<>"Y"THEN2010 : rem 194 

2040 GOTO2100 :rem 194 

2050 LL=0 tPRINT " {CLR} " : PRINTN$TAB ( 35) PN:PRINT " {UP} 

"DA$jPRINT trem 221 

2060 PRINTTAB (10) "PLANNED EXPENDITURES" trem 196 
2070 PRINTTAB ( 10) "i 20 T| trem 189 

2080 PRINT "ACCOUNT "TAB( 16 ) "PLANNED"TAB( 26 ) "ACTUAL" 

TAB(35)"+/- trem 68 
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2090 P0W.=lTO39:PRINT"gTi" ; :NEXT: PRINT: RETURN 

:rein 190 

2100 OPEN4,4,l:LB$=LEFT$(S$,56-LEN(N$)) »PRINT#4,LA 

$;N$;LB$;PN;LF$ :rem 235 

2110 PRINT#4,LA$;DA$;LF$;I.F$ :rem 75 

2120 LB$=LEFT$(S$,30) :PRINT#4,LB$;"PLANNED EXPENDI 

TURES";LF? :reni 104 

2130 PRINT#4,LB$;"B15 Tl";LF? irem 133 

2140 PRINT#4,LA$;"ACC0UNT{16 SPACES } PLANNED 

{10 SPACES }ACTUAL{ 9 SPACES }+/-"; 'rem 146 

2150 PRINT#4,LF$ ;LA$ ; :F0RL=1T045 :PRINT#4 , "ITS" ; jNE 

XT:PRINT#4,LF$;LF$:F0RJ=1T0MY-1 :rein 242 

2160 PRiNT#4,LA$;PE$( J,l) ; : rem 177 

2170 PC=30-LEN(PE$(J,1))-LEN(PE$(J,2)) :GOSUB2280iP 

RINT#4,RA$;PE$( J,2) ; :rem201 
2180 P016-LEN(PE$(J,3)) :GOSUB2280 :PRINT#4 ,RA$ ;PE$ 

(J,3) ; :rem 194 

2190 PC=14-LEN(PE$(J,4)) :GOSUB2280 :PRINT#4 , RA$ ;PE$ 

( J,4) ;LP$ :NEXT:IFJ=MYTHEN2200 : rem 219 

2200 LB$=LEFT$(S$,29) :PRINT#4,LB$;"i8 tH6 SPACES} 

B8 T3{6 SPACES }g6 T§";LF$ : rem 207 

2210 LB$»LEFT${S$,15) :PRINT#4,LB$ ;L$( 17) ;" 

{3 SPACES} $"; :rem 155 

2220 PC=16-LEN(PE$) :GOSUB2280 tPRINT#4, RA$ ; PE$ ; 

:rem 201 

2230 PCsl6-LEN(TE$) :GOSUB2280 tPRINT#4, RA$;TE$ ; 

:rem 210 

2240 PC=14->LEN(GE$) :GOSUB2280 tPRINT#4, RA$ ;GE$ ;LF$ 

:rem 109 

2250 LB$=IiEFT$(S$,29) :PRINT#4,LB$;"i8 T3{6 SPACES} 

g8 T3{6 SPACES} 16 T|";CR$; :rem 18 

2260 PRINT#4 ,LB$ ; " DDDDDDDD {6 SPACES } DDDDDDDD 

{6 SPACES } DDDDDD " ;LF$ :rem 212 

2270 P0RSP=1T012 tPRINT#4,LF$ :NEXT:PRINT#4 :CL0SE4 :G 

OTO360 :rem 80 

2280 RA$=LEFT$ (S$, PC) ! RETURN : rem 176 

2290 POKEBO, 7 tPOKEBA, 7 :POKE646 , 6 iPRINT " { CLR} " : PN=5 

50tPRINTN$TAB(35)PNsPRINT"(UP}"DA$ :rem 163 
2300 PRINT tPRINTTAB( 8) "MINIMUM REQUIRED BALANCE 

:rem 254 

2310 PRINTTAB(8)"g24 Tl :rem 29 

2 320 PRINT " MONTH "TAB (13)" PLNINC "TAB (23)" PLNEXP "TAB 

(31)"REQD BAL :rem 3 

2330 P0RL=lTO39:PRINT"iTl"; :NEXT:PRINT:F0RA=1T012: 

PRINTRB$(A,l)f ,rem 32 

2340 PRINTTAB ( 20-LEN( RB$ ( A, 2 ) ) ) RB$ (A, 2 ) ; :PRINTTAB ( 

30-LEN(RB${A,3)))RB$(A,3); :rem 4 

2350 PRINTTAB(39-LEN(RB$(A,4)))RB$(A,4) :NEXT:PRINT 

TAB(ll)"g9 Ti{2 SPACES} g8 Tl :rem 91 
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2360 PRINTTAB(2)L$(17)" $" ; :PRItITTAB(20-LEN( RI$) ) R 

1$; :PRIMTTAB(30-LEN(RE$) )RE$ :reni 10 

2370 PRINT" {DOVralHARD COPY (Y/N) ? jrem 76 

2380 GETA$ iIFA$=""THEN2380 irem 189 

2390 IFA$="N"THEN360 trem 89 

2400 IFA$<>"Y"THEN2380 :rem 205 

2410 GOTO2420 trem 200 

2420 OPEN4,4,1iLB$»IJ!:FT$(S$,56-LEN(N$) ) tPRINT#4,LA 

$;N$;LB$;PN;LF$ trem 240 

2430 PRINT»4,LA$;DA$;LF$;LF$ :rem 80 

2440 LB$=LEFT$( S$, 28) :PRINT#4,LB$; "MINIMUM REQUIRE 

D BALANCE ";LF$ trem 53 

2450 PRINT#4,LB$;"il8 Ti";LF§;LF$ trem 100 

2460 PRINT#4,LA$;"M0NTH(18 SPACES } PLNINC 

{10 SPACES } PLNEXP" ; trem 104 

2470 LB$=LEPT$(S?,7) iPRINT#4,LB$;"REQD BAL" ;LP$ 

trem 157 

2480 PRINT#4,LA$; tFORIi=lT045 tPRINT#4 , "gTl" ; tNEXTtP 

RINT#4,LP$;LF$tFORA=lT012 trem 93 

2490 PRINT#4,1A$;RB$(A,1) ; trem 173 

2500 PO30-LEN(RB$(A,1))-LEN(RB$(A,2)) tGOSUB2610tP 

RINT#4,RA§;RB§(A,2) ; trem 165 

2510 PC»15--LEN(RB$(A,3)) tGOSUB2610tPRINT#4,RA$;RB$ 

(A, 3) ; trem 167 

2520 PC=15-LEN(RB$(A,4)) tGOSUB2610 tPRINT*4, RA$; RB$ 

(A,4);LF$tNEXT trem 217 

2530 LB$=LEFT$(S$,29) tPRINTf4,LB$;"g8 Tl{4 SPACES} 

88 T§";LF$ trem 3 

2540 LB$=LEFT$(S$,19) tPRINT#4,LB$ ;L$( 17) ;" 

{2 SPACES}?"; i rem 165 

2550 PC=13-LEN( RI$) iGOSUB2610 tPRINT*4 , RA$ ; RI$ ; 

trem 213 

2560 P015-LEN(RE$) tGOSUB2610 tPRINT*4, RA$ ; RE$ ;LF$ 

trem 134 

2570 LB$»LEFT$(S$,29) tPRINT»4,LB$;"i8 T3{4 SPACES} 
B8 T3'';CR$; trem 69 

2580 PRINT»4,IiB$;"DDDDDDDD(4 SPACES } DDDDDDDD" ;LF$ 

trem 65 

2590 F0RSP»1T012 tPRINT#4,LF$ tNEXTtPRINT*4 tCL0SE4 

trem 73 

2600 GOTO360 trem 154 

2610 RA$ =LEFT$(S$, PC )t RETURN trem 173 

2620 PRINTtPRINT"{2 DOWN}SUMMING . . " ; tPE$=" " iPl§= 

"0.00"tFORJ=»lTOME-l trem 57 

2630 P2$=PE$(J,2) tGOSUB2640tP.l$aP3$tPRINT'' .";tNEX 

T:PE$=P3$t RETURN trem 135 

2640 TEa0tTLa0tTR»«tP$api$ tGOSUB2700tTI/»PL-l tTR>PR 

•fl tP$=P2$ tGOSUB2700 trem 185 

2650 TD=TL+PLtTft«TR+PRtTE=TW-TRtIFTE< .0001ANDTE>- . 

0001THENP3$="0.00"t RETURN trem 164 
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2660 IFTE<0THENP3$='STR$(TE-.001) trem 104 

2670 IPrE>0THENP3$=STR$(TE+.001) trem 105 

2680 P3$°LEFT$(P3$,LEN(P3$)-1) iIFLEFT$(P3$,l)aCHR$ 

(32)THENP3$=MID$(P3$,2) trem 36 

2690 RETURN trem 177 

2700 PL$=LEFT$(P$,LEN(P$)-3) tPL°VAL(PL$) trem 17 
2710 PR$aRIGHT$(P$,3) tPR«VAL(PR$) t IFPL<0THENPR>PR* 

-1 trem 175 

2720 RETURN trem 171 

2730 IFME=<2THEN2800 trem 145 

2740 PRINT "NOW SORTING. . tF0RJJ=lT0ME-2 tFORKK=JJ 

+1T0ME-1 trem 125 

2750 IFPE$(KK,1)>PE$(JJ,1)THEN2790 trem 148 

2760 SM$»PE$(KK,1) iRM$=PE$(KK,2) trem 5 

2770 PE$(KK,1)=PE$(JJ,1) tPE$(KK,2)=PE§( JJ,2) 

trem 118 

2780 PE$(JJ,1)=SM$:PE?(JJ,2)=RM$ :rem 3 

2790 NEXTtPRINT" .";:NEXT trem 254 

2800 RETURN trem 170 

2810 PRINT "CLEARING THE HAY ."; trem 28 

2820 F0RZ»lT0NtF0RK»lT04tPE$(Z,K)-""tNEXTtPRINT" . 

" ; tNEXT t rem 25 

2830 PRINTtRETURN trem 116 

2840 GOSUB2810tPRINTtPRINT"LOADING . " ; tOPEN15 ,8 ,15 

tF^="EXPENSE"+M$(M) trem 145 

2850 0PEN8,8,8, "0t"+F§+",S,R"tINPUT#8,Y,My,M,TE$,N 

$tINPUT*15,E,E$ trem 177 

2860 IFE>19THEN2980 trem 78 

2870 JB=ltLLs0tFORTE=lTO6tINPUT#8,E$(JB,JE) tNEXT 

trem 204 

2880 PE$(JB,1)=E$(JB,3) tPE$(JB,2)=>E$(JB,5) tPE$(JB, 

3)=""tPE$(JB,4)=" trem 248 

2890 IFMYs<2THEN2980 trem 181 

2900 R$=!CHR$(13) tPORJD=2T0MY-l trem 249 

2910 INPUT«8 , El$ , R$ , E2 $ , R$ , E3$ , R$ , E4$ , R$ , E5$ , R$ , E6 

$,R$tFORJC=lTOJB trem 129 

2920 P1$=PE$(JC,2) tP2$sE5$ trem 95 

2930 IFPE$(JC,l)=E3$THENGOSUB2640tPE$(JC,2)=:P3$ tLL 

»LIrt-l tJOJB tNEXT tGOTO2970 trem 9 

2940 NEXT trem 14 

2950 JB=<rB+l tPB$(JB,l)»E3$ tPE$(JB,2)=E5$ tPE$(JB,3) 

=""iPE$(JB,4)=" trem 207 

2960 PRINT" ."; trem 11 

2970 NEXTtMY=MY-LI. trem 153 

2980 CLOSES tCL0SE15tRETURN trem 177 

2990 PPJNT"I'M SAVING . . tF$="PLNEXP"+M$(M) tOPEN 

15,8,15 tPRINTt 15, "S0t"+F$ trem 209 

3000 CL0SE15 tOPENS ,8 ,8 , "0 1 "+F$+" , S , W" t PRINT#8 , YR", 

"ME", "M","PE$CHR$(13) trem 130 

3010 FORJ&slTOME-l trem 56 
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3020 PR1NT#8,PE$(JB,1)","PE$(JB,2)","PE$(JB,3)","P 

E$(JB,4)CHR$(13) :PRINT" ."; :rera37 
3030 NEXTtCLOSE8:GOSUB3090:RETURN trem 141 

3040 GOSUB2810:TE$="":GE$="":PRINT:PRINT"LOADING . 

"; :F$="PLNEXP"+M$(M) : rem 100 

3050 OPEN8,8,8,"0:"+F$+",S,R":INPUT#8,YR,ME,M,PE$: 

P0RTB=1T0ME-1 trem 155 

3060 INPUT#8 , PE$ ( JB, 1 ) , PE$ ( JB, 2 ) , PE$ ( JB, 3 ) , PE$ ( JB, 

4):PRIMT" ."; :NEXT:CL0SE8 :rem 11 

3070 GOSUB3090 :rem 22 

3080 RETURN :rem 171 

3090 E=0:OPEN15,8,15:INPUT#15,E,E$ :rem 159 

3100 IPE>19THENPRINT:PRINTE$ : SYS828 jFORD=1TO5000 :N 

EXT :rem 187 

3110 CL0SE15: RETURN trem 187 

3120 EF=0 tLl=LEN(P$) tFORL=lTOLl tT$»MID$ ( P$ ,L,1 ) tAB 

=ASC(T$) tIFAB=46THENNEXT trem 211 

3130 IFAB<480RAB>57THENL=L1 fEP=l t PRINTtPRINTPl $ER1 

$F1$; "ERROR IN INPUT " t SYS828 trem 114 

3140 GOSUB 5000 :NEXT: RETURN trem 160 

3150 PRINT: PRINT "DATA MISSING" : SyS828 tFORI><>lTO5000 

:NEXT:GOTO360 trem 48 

3160 A=12:NEXT trem 36 

3170 SYS828 :FORD-1TO5000 :NEXT:CL0SE8 tCL0SE15 tG0T03 

60 trem 42 

3180 POKEBO,15:POKEBA,15:POKE646,ll trem 51 

3190 PRINT" {CLRl"tYE=0:IFYF=lTHENl 900 trem 69 

3200 PRINT "{DOUN} PLANNED EXPENSE FOR " ;YR$ tMMal2 tG 

OSUB3260 trem 171 

3210 PRINT" {DOWN }SAVING EXPENSE FOR YEAR FILE ."; 

trem 41 

3220 F$="PLNEXP"+" "+YR$ tOPEN15 ,8,15 tPRINT#15, "80 t 

" +F$ rCLOSEl 5 : AA=VAL( YR$ ) t rem 222 

3230 0PEN8,8,8, "0 : "+F$+" ,S,W" tPRINT#8,AA", "MY","PU 

$", "CHR$(13) :F0RKK=1T0MY-1 trem 235 

3240 PRINT" ."? iPRINT#8,PE$(KK,l)","PE$(KK,2)","PE 

$(KK,3)", "PE$(KK,4)CHR$(13) trem 81 

3250 NEXTtCL0SE8tTE§="":GE$=""tYP=il :P»=120 :DA$=YR$ 

tGOTO1900 trem 239 

3260 GOSUB2810iPRINT"{ DOWN) LOADING: (2 SPACES}"; tM° 

1 trem 154 

3270 F$="PLNEXP"+M$(M) iPRINTM$ (M ) , tOPEN15 ,8 , 15 

trem 146 

3280 OPENS, 8, 8, "0 t "+F$+" ,S, R" i INPUT#8,Y, MY, M,PE$ : I 
NPUT#15,E,E$ trem 13 

3290 IFE> 19THENPRINT tPRINTE$ : SYS828 tFORD=lTO5000 t N 
EXTtCLOSE8:CLOSE15:GOTO3480 trem 5 

3300 JB=1 1 LL»0 t INPUT#8 ,PE$( JB, 1 ) ,PE$( JB, 2 ) ,PE$( JB, 
3),PE$(JB,4) trem 166 

3310 IFMY=<2THEN3370 trem 163 
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3320 P0RJD=2T0MY-1 :INPUT#a ,E1$ ,E2$ ,E3$ ,E4$ :F0RJC=1 

T0JBjP1$=PE$(JC,2) :P2$=E2$ irem 170 

3330 IFPE$ ( JC, 1 )=E1$ THENGOSUB2640 :LL=LL+1 :PE$ ( JC, 2 

)«P3$ :JC=JB:NEXT:6OTO3360 trem 252 

3340 NEXT :rem 9 

3350 JBsJB^l :PE$( JB, 1 )=E1$ :PE$( JB, 2 )=E2$ :PE$( JB, 3 ) 

»E3$:PE$( JB,4)=E4$ :rein 152 

3360 NEXTjMY=MY-LL :rem 147 

3370 CLOSES :CLOSE15:IFMM=1THEN3470 :rein 95 

3380 OPEN15,8,15 :F0RM=2T0MM:F$="PLNEXP"+M$(M) :OPEN 

8,8,8, "0:"+F$+",S,R irem 209 

3390 INPUT#8 , Y , ME , M, PE$ t INPUT* 15 ,E , E$ : IFE> 19THENM» 

MM:GOTO3460 :rem 253 

3400 PRINTM$(M), tFOKTB^lTOME-l : INPUT#8 ,E1$ ,E2$ ,E3$ 

,E4$ jFORJC=lTOMy-l irem 67 

3410 P1$=PE$(JC,2) :P2$=E2$ irem 87 

3420 IFPE? ( JC, 1 )=E1$THENGOSUB2640 :PE$ ( JC,2 )=P3$ : JC 

-MY>1:NEXT:GOTO3450 :rem 113 

3430 NEXT:PE$(MY,1)=E1§:PE$(MY,2)=E2$:PE$(MY,3)=E3 

$:PE$(MY,4)=E4$ :reni 141 

3440 MY=MY+1 :rem 176 

3450 NEXT :rem 11 

3460 CLOSES iNEXT :rem 244 

3470 CLOSE15:ME=MY:GOSUB2620:PRINT:PU$=PE$ sGOSUB27 

30:PRINT :rem 234 

3480 RETURN : rem 175 

3490 P0KEB0,2 :P0KEBA,2 :POKE646,l :PRINT"{CLR) 

{3 DOWN}" jPRINTTAB( 10) "COMPARATIVE REPORTS 

:rem 75 

3500 PRINTTAB(8)"{2 D0WN)1. MONTH" :PRINTTAB( 8) " 

{D0WN}2. YEAR TO DATE":YF=0 :rem 20 

3510 PRINTTAB(8)"{DOWN}3 . PLANNED EXP MENU":PRINTT 

AB(10)"{4 DOWN}PRESS DESIRED NUMBER : rem 156 
3520 GETA$sIFA$=""THEN3520 irem 183 

3530 IFA$<"1"ORA$>"3"THEN3520 :rem 36 

3540 AA=VAL(A$) :ONAAGOTO3550, 3740, 360 irem 66 

3550 P0KEB0,9 :P0KEBA,9 iPOKE646,l :PRINT"{CLR} 

{3 DOWN}"iYE=0 irem 191 

3560 INPUT"MONTH NUMBER (2 DIGITS, 01 TO 12)";MiPR 

INT:GOSUB3040:IFE>19THEN3150 trem 73 

3570 GOSUB3650!lFE>19THEN3150 :rem 203 

3580 TE$=TB$ iPl$=PE$ iP2?=NN$+TE$ iGOSUB2640 :GE$=P3$ 

iMY=ME:IFYIt=0THENYft=Y trem 114 

3590 DA$=M$(M)+" "+YR§ :P1*=201+10*M:GOTO1900 : rem 23 
3600 IFPE$( JC,3)=""THENPE$( JC,3)=E5$ iGOTO3630 

:rem 14 

3610 P1$=PE$(JC,3) iP2$=E5$ tGOSUB2640:PE$(JC,3)=P3$ 

:rem 247 

3620 IFPE$(JC,2)=""THENPE$(JC,4)=NN$+PE$(JC, 3) :GOT 
03640 :rem S4 
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3630 P1$=PE$(JC,2) :P2$=NN$+PE$(JC,3) :GOSUB2640 :PE$ 

(JC,4)=P3$ :rem 60 

3640 JC=ME-1 :NEXT:GOTO3730 :rem 64 

3650 OPEN15,8,15:F$="EXPENSE"+M$(M) :0PEN8,8,8, "0:" 

+F$+",S,R :rem 248 

3660 INPUT#8,Y,MA,M,TB$,N$ : INPUT* 15 ,E,E$ :IFE>19THE 

NCLOSE8:CLOSE15: RETURN srem 18 

3670 P0RJB=1T0MA-1:PRINT" ."; :rein 180 

3680 R§=CHR$(13) : INPUT#8 ,E1$, R$ , E2$ , R$ , E3$ , R$ ,E4$ , 

R$,E5$,R$,E6$,R$ :rein 222 

3690 FORT C=lTOME-ltIFPE$(JC,l)=E3$THEN3600: rem 213 
3700 IPPE$( JC,4)=""THENPE$( JC,4)=PE$( JC,2) :rem 41 
3710 NEXT :rem 10 

3720 PE$ (ME , 1 )=E3$ :PE$ (ME , 2 ) =" " : PE$ (ME , 3 ) =E5$ :PE$ ( 

MB,4)=NN$+E5$iMB=ME+l : rem 86 

3730 NEXTjCLOSE8:CLOSE15:RETURN :rem 36 

3740 P0KEB0,7 :P0KEBA,7 :POKE646,ll :rem 215 

3750 E=0jPRINT"{CLR}" :rem 31 

3760 INPUT"CURRENT MONTH (2 DIGITS)"; MM :IFMK=MMAND 

YE»1THEN1900 trem 124 

3770 INPUT"CURRENT DAY{3 SPACES} (2 DIGITS)" ;DD$ jTE 

$="" I rem 76 

3780 DB$=DD$+" "+M$(MM)+" "+YR$ :DA$="UP TO "+DB§ 

:rem 69 

3790 PRINT" {CLR}":PRINT"{DOWN}COMPARE PLANNED EXPE 

NSE TO" I rem 23 

3800 PRINTDB$ :GOSUB3260:IFE>19THEN3150 trem 53 

3810 FORH=1TOMM:6OSUB3650:IFE>19THENM=MM:NEXT:GOTO 

3150 trem 241 

3820 IFTE$=""THENTE$=TB$ tGOTO3840 trem 191 

3830 Pl$=TE$tP2$=TB$:GOSUB2640tTE$=P3$ trem 165 
3840 NEXTtPl$=PE$ tP2?=NN$+TE$ tGOSUB2640 tGE$=P3$ tMY 

=ME:YB=ltMN=:MMtP»=121 trem 70 

3850 GOTO1900 trem 211 

3860 PRINT"{CLR}{2 DOWN} " tP0KEB0,7 tP0KEBA,7 tP0KE64 

6,9 trem 113 

3870 E=0 iPRINTTAB( 8) "MINIMUM REQUIRED BALANCE 

trem 48 

3880 OPEN15,8,15tPRINTiPRINT"L0ADING PLANNED INCOM 

E FOR: "!F0RA=1T012 trem 229 

3890 F$="PLNINC"+M$(A) tPRINTM$(A), tOPEN8 ,8 ,8, "0 t "+ 

F§+",S,R trem 204 

3900 INPUT#8,Y,MI,M,PT$:INPUT#15,E,E$ trem 196 

3910 IFE>19THENPRINTt PRINT "PLANNED INCOME FOR M3NT 

H FILE MISSING" tGOTO3160 trem 177 

3920 RB$(A,1)=M$(M) tRB$(A,2)-FT$ tCLOSES tNEXTtDA$-Y 

R$ trem 248 

3930 P$="PLNINC"+" "+yR$tPRINTF$tOPEN8,8,8,"0t"+F$ 

+",S,R"tINPUT#8,Y,MI,RI$ trem 182 

3940 INPUT! 15 ,E,E$ trem 239 
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3950 IFE>19THENPRINT:PRINT"N0 PLANNED INCOME FOR Y 

EAR FILE"iGOTO3170 : rent 228 

3960 CLOSES tPRINTiPRINT "LOADING PLANNED EXPENDITUR 

ES F0Rj"tF0RA=lT012 jrem 233 

3970 F§="PLNEXP"+M$(A) :PRINTM$(A), :0PEN8 ,8 ,8, "0 1 " + 

F$+",S,R :rein 222 

3980 INPUT#8,Y,ME,M,PE$jINPUT#15,E,E$ :rem 185 

3990 IFE>19THENPRINT: PRINT "PLANNED EXPENSE FOR MON 

TH FILE MISSING" :6OrO3160 trem 22 

4000 PORJC=1T01 2 t IFM$ (M )«RB$ ( JC, 1 ) THENRB? ( JC, 3 ) = PE 

$ trem 206 

4010 NEXTjRB$(A,3)=PE$ jCL0SE8:NEXT:F$="PLNEXP"+" " 

+YR$:PRINTF$ :rem 212 

4020 0PEN8,8,8, "0:"+F?+",S,R":1NPUT#8,Y,ME,RE$ :INP 

UT#15,E,E$ jrem 123 

4030 IFE>19THENPRINT"N0 PLANNED EXPENDITURES FOR Y 

EAR FILE":6OTO3170 :rein 248 

4040 CL0SE8 :CL0SE15 tPl$=RI$ :P2$=NN$+RE$ tGOSUB2640: 

IFVAL(P3$)<0THEN4170 trem 187 

4050 PRINT: PRINT "COMPUTING . " ; tF0RA=lT012 tRB$ (A,4) 

="0.00":NEXT trem 242 

4060 F0RA=1T012:PRINT" ."; trem 218 

4070 B=A-1 tIFBs0THBNB=-12 irem 114 

4080 P1$=RB${B,4) :P2$=RB$(A,2) tGOSUB2640tAV$=P3$ 

trem 125 

4090 P1$=RB$(A,3) tP2$sRB$(A,4) tGOSUB2640 trem 165 
4100 IFVAL(AV$)=>VAL(P3$)THBNNEXTtGOTO2290 trem 71 
4110 Pl$=P3$tP2$=:NN§+RB$(A,2) fGOSUB2640:RB$(B,4)=P 

3$ trem 78 

4120 LC»B-1 tIFLC»0THENLO<>12 trem 86 

4130 Pl$aRB$(LC,4) tP2$sRB$(B,2) tGOSUB2640 tAV$=P3$ i 

P1$»RB$(B,3) :P2$sRB$(B,4) trem 85 

4140 GOSUB2640 tIFVAL(AV$ ) = >VAL( P3§) THENNEXT:GOT022 

90 trem 209 

4150 Pl$=P3$tP2$=NN$+RB$(B,2) tGOSUB2640:RB$(IX:,4) = 

P3$tB=B-liIFB'^THENB»12 trem 130 

4160 GOTO4120 trem 203 

4170 PRINT"{CLR} {6 DOWN} " tPRINTTAB( 10 )" { WHT} INSUFF 

ICIENT INCOME "tSYS8 28 trem 76 

4180 PRINT" {DOWN}REDUCE PLANNED EXPENDITURES BY $ 

{ SPACE 1"P3? trem 111 

4190 FORD=lTO5000tNEXTtGOTO360 trem 84 

4200 POKEBO,14:POKEBA,6tPOKE646,14 trem 255 

4210 PRINT"{CLR} {6 DOWN} " tPRINTTAB( 12 ) "REMOVE DATA 
DISK": PRINT trem 1 

4220 PRINTTAB( 18) "AND" tPRINTtPRINTTAB(10) "INSERT P 

ROGRAM DISK"tPRINTtPRINT"{4 DOWN} trem 100 
4230 PRINTTAB(9)"PRESS 'C TO CONTINUE trem 255 
4240 GETA$ tIFA$=""THEN4240 trem 183 

4250 IFA$<>"C"THEN4240 trem 185 
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4260 POKE631,83:POKE632,89:POKE633,83 :reni 105 

4270 POKE634, 53 :POKE635 ,49 tPOKE636,48 :POKE637 ,48 tP 
OKE638,48:POKE639,13 :rein 75 

4280 POKE198,9:NEW :reni 40 

5000 REM FORMAT :rein 114 

5010 PRINT F1$;ER1$;F2$: RETURN :rein 6 



BACK-UP FILES 

Remember to use the name above for the program you place on the PAM master disk. 

20 FORI=679T0734 :READA:POKEI , A:NEXTI :BB=PEEK( 44) +2 
7:POKE995,BB irem 91 

30 POKE998,PEEK(55) :POKE999,PEEK( 56) :POKE55 ,0 :POKE 
56,BB:CLR:BB=PEEK(995) trem 79 

40 N= PEEK ( 999) -BB-1 :BA=BB*256 :MA=679 :DIMBM% { 35 , 24) 
:S1$="" :reni 133 

50 S2$="INSERT DATA DISK, PRESS SPACE BAR": rem 163 
60 S3$="INSERT BACK-UP DISK, PRESS SPACE BAR":FORJ 
=0TO7:TA(J)=2tJ:NEXT :reni 26 

70 PRINT"{CLR} {6 DOWN} " iPOKE53280 ,0 :POKE53281 ,0 :P0 
KE646,1 !PRINTTAB( 14) "BACK-UP FILES" : rem 20 

80 PRINT: INPUT" YEAR" ;Y : rem 200 

90 yR?=STR$(Y) :0PEN1 ,8,15 : rem 207 

100 S1$=S2$ :GOSUB610:INPUT#1 ,E,E$ :rem 148 

110 IFE>19THENPRINT "WRONG DISK" :CL0SE1 :SYS828 :GOTO 
100 :rem 134 

120 IFIR$="£2"THENPRINT "WRONG DISK" : SYS828 :GOTO10 

:rem 212 

130 I2$=IR$ :rem 47 

140 S1$»S3$:GOSUB610:IFI2$=IR$THENPRINT "WRONG DISK 
":SYS828:GOTO140 :rem 116 

150 DN$="BACK-UP"+YR$ :I1$="£2" :PRINT#1, "N0 : "+DN$+ 

","+11$ :rem 102 

160 INPUT* 1,E,E$ :rem 129 

170 S1$=S2$ :GOSUB610:IFIR$<>I2$THEN170 :rem 223 
180 GOSUB450:T=TS:S=0:NU=1:T1=T:S1=S :rem 7 

190 PRINTtl, "I0":OPEN3,8,3,"#":PRINT"READING BLOCK 
#"; :rem 39 

200 IFBM%(T1 ,S1)=0THENGOSUB360:NU=NU+1 :IFNU>NTHEN2 
30 :rem 229 

210 S1=S1+1 :IFS1>20THENS1^:T1=T1+1 :rera 30 

220 IFTKTF+1THEN200 :rem 155 

230 PRINT" {DOWN} ":CL0SE3 :rem 90 

240 S1$=S3$ :GOSUB610:IFIR$<>I1$THEN240 :rem 219 
250 PRINTtl, "I0":OPEN3,8,3,"#":PRINT"WRITING BUFFE 
R #"; :NU=1:T1=T:S1=S :reml34 
260 IFBM%(T1 ,S1)=0THENGOSUB400 :NU=NU+1 :IFNU>NTHEN2 
90 :rem 236 
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270 S1=S1+1:IFS1>20THENS1=0:T1=T1+1 :rem 36 

280 IPTKTBM-1THEN260 :rein 167 

290 PRINT" { DOWN} " : CL0SE3 : S=S1+1 : IFS> 20THKNS=0 : T1=T 

1+1 :rem 146 

300 T=T1:IFT>TFTHEN330 :rem 99 

310 S1$=S2$:GOSUB610:IFIR$<>I2$THEN310 :rem 215 
320 NU=1:T1=TjS1=S:GOTO190 :rem 81 

330 CLOSEl : POKES 5, PEEK (998) : POKES 6 , PEEK ( 999) :CLR:P 

RINT"{CLR)l6 DOWN}" :rein 1S6 

340 PRINTTAB (12) "BACKUP COMPLETE": SYS8 28 :rem 221 
3S0 FORD=lTO1000:NEXTiGOTO650 :rera 28 

360 C=.: PRINT* 1, "Ul" ;3;0;T1;S1 :PRINT#1, "B-P" ;3;0 

:rem 211 

370 IFNU<>0THENPRINT"{3 SPACES} {3 LEFT} " ; RIGHT$ ( " 
{2 SPACES}"+STR$(NU),3) ;" {3 LEFT}"; :rein 235 

380 POKE996,PEEK( 3) :POKE997 ,PEEK( 4) : P0KE4 , BB+NU : SY 
SMA: POKES, PEEK (996) :rein 247 

390 P0KE4,PEEK( 997) : RETURN : rem 100 

400 C= . : PRINTt 1 , "B-A" ;0 ; Tl ; SI :PRINT# 1 , "B-P" ; 3; 

:rem 138 

410 PRINT" {3 SPACES} {3 LEFT} " ; RIGHT$ ( " { 2 SPACES }"+ 
STR$(NU) ,3) ;" {3 LEFT}"; : rem 219 

420 POKE996,PEEK(3) tPOKE997 ,PEEK( 4) :P0KE4 , BB+NU : SY 
SMA+3 »P0KE3, PEEK (996) :rem 80 

430 POKE4,PEEK(997) :rem 69 

440 PRINTtl, "U2" ;3;0jTl;Sl :RETURN :rein 226 

450 PRINT "COMPUTING . . . " ; : TS=1 :TF= . :PRINT#1 , "10" 
:OPEN3,8,3, "#"iS9=0 trem 159 

460 NU=0 : Tl=18 : S1=0 : C0$=CHR$ ( . ) :G0SUB3 60 : BY=4 

:rem 97 

470 T%=(BY-4)/4+l:PRINT" :reni 209 

480 IFPEEK(BA+BY)= .THENPORJ= .TO20 :BM% ( T% , J)= . iNEXT 

:BY=BY+4:GOTOS30 :rem 78 

490 S=0 :rein 93 

500 BY=BY+1 :A0=PEEK(BA+BY) iFORJ= .T07 :BM%(T% ,S)=A0A 

NDTA(J) :S=S+1:NEXT : rem 149 

510 IFS<22THEN500 ;rem 220 

520 BY=BY+1 :rem 102 

530 ES=21:IFT%>17THENES=19 :rem 38 

540 IPT%>24THENES=18 :rem 178 

550 IFT%>30THENES=17 :rem 175 

560 P0RJ=EST024 :BM% ( T% , J)=-l :NEXT: SM= . : FORJ= .TO20 : 

IFBM%(T%,J)=.THENSM=SM+1 :rem 60 

570 NEXT: S9=S9+SM: IFSM= .ANDTS=T%THENTS=TS+1 :GOT059 

:rem 96 

580 IFSMo .THENTF=T% :rem 243 

590 IFBY<143THEN470 :rem 102 

600 CLOSES :PRINT: PRINT" {DOWN }A TOTAL OF "; S9 ;" BLOCK 

S TO COPY":RETURN :rem 120 
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610 F0RB=1T0LEN(S1$) :PRINTMID$ ( Sl$ ,B, 1 ) ; :P0RZ=1T03 
5:NEXTZ,B:PRINT:SYS828 :rein 68 

620 GETA$:IFA$<>" "THEN620 jrem 144 

630 0PEN2 ,8,0, "$0" :F0RJ=1T026 :GET#2 , A$ :NEXTJ :GET#2 
,A$:GET#2,B$:IR$=A$+B$ :reni 85 

640 CL0SE2 : RETURN : rem 92 

650 POKE53280,14:POKE53281,6 :POKE646,14 :PRINT" 

{CLR}{6 DOWN}" :rein 201 

660 PRINTTAB (10) "REMOVE BACK-UP DISK":PRINT 

:rein 153 

670 PRINTTAB( 18) "AND" :PRINT:PRINTTAB{10) "INSERT PR 

OGRAM DISK": PRINT "{4 DOWN}" :rem 148 

680 PRINTTAB(9)"PRESS ' C TO CONTINUE" trem 246 
690 GETA$ :IFA$=""THEN690 :rem 97 

700 IFA$<>"C"THEN690 : rem 90 

710 POKE631,83:POKE632,89:POKE633,83 :rem 53 

720 POKE634, 53 :POKE635 ,49 jPOKE636 ,48 :PCttCE637 ,48 :P0 

KE638,48tPOKE639,13 :rem 23 

730 P0KE198,9tNEW :rem 244 

740 DATA76, 173, 2, 76, 198, 2, 162, 3, 32, 198, 255, 160, 0,1 

32,3,32,207,255,145 :rem 123 

750 DATA3, 165, 144, 208, 3, 200, 208, 244, 32, 204, 255, 96, 

162,3,32,201,255,160 :rem 154 

760 DATA0, 132, 3, 177, 3, 32, 210, 255, 165, 144, 208, 3, 200 

,208,244,32,204,255,96 trem 252 



ACCOUNT BALANCES 

Remember to use the name above for the program you place on the PAM master disk. 

20 DIML$(30),M$(12),FW$(40),IT$(10),DI$(10),BA$(9) 
.BB$(9) ,rem 60 

30 DIMTG$(9),TF$(9) :M=1 :C=0 :NN$="-" :CB=0 :PN=0:BO=5 
3280:BA=53281 :rem 249 

40 DIMFW(40),IT(10),DI(10) irem 118 

50 LL$="":BA?=""iP$="":Pl$="":P2$="":P3$="":rem 86 
60 Bl$="" iB2$=" " :B3§=" " :B4$=" " :B5$=" " :B6$=" " 

:rem 39 

70 Il$=" " : I2$=" " : I3$=" " : I4§=" " : I5$=" " : I6$=" " 

:rem 82 

80 LF$=CHR§ (10): CR$=CHR$ (13): SP$=CHR$ (32): NC=80 : PC 
=0:LC$="" ,rem 1 

90 S$=" " :FORSP=lTONC: S$=S$+SP$ :NEXT:LA$=LEFT$ ( S$ , 1 
0):LB$="":RA$="" -rem 66 

100 M$( 1 )="JANUARY" :M$( 2)="PEBRUARY" :M$( 3 )="MARCH" 
:M$(4)="APRIL" srem 114 

110 M$(5)="MAY":M$(6)="JUNE":M$(7)="JULY":MS(8)="A 
UGUST" srem 92 

120 M$(9)="SEPTEMBER":M$(10)="OCTOBER" :rem 162 
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130 M$ ( 11 )= "NOVEMBER" :M$ ( 12 )=" DECEMBER" : POKEBO, 3 :P 
OKEBA,3iPOKE646,l:PRIMT"{CLR}{3 DOini}"trem 137 

140 PRINTTAB ( 12 ) "ACCOUNT BALANCES" :FORD=1TO5000 :NE 
XT :rem 235 

150 POKEBO , 14 : POKEBA, 6 : POKE646 , 14 : PRINT " { CLR } 

{6 DOWN}" :rem 211 

160 PRINTTAB (10) "REMOVE PROGRAM DISK":PRINT 

:rem 201 

170 PRINTTAB(18)"AND":PRINT:PRINTTAB(12)"INSERT DA 
TA DISK" SPRINT J PRINT" {4 DOWN}" :rem 90 

180 PRINTTAB(9)"PRESS 'C TO CONTINUE" trem 241 
190 GETA$:IFA$<>"C"THEN190 srem 215 

200 POKEBO, 12 :POKEBA, 12 :POKE646,l :PRINT" {CLR} 

{2 DOWN}" srem 130 

210 PRINTTAB( 12) "ACCOUNT BALANCES" s PRINT: PRINT 

srem 195 

220 PRINT"LOADING PERSONAL DATA " ; :F$="PERSDATA" :0 
PEN8,8,8,"0t"+P$+",S,R" srem 220 

230 INPUT#8,YR$,N$,Nl$,N2$,N3$,N4$iPRINT" ."; 

srem 207 

240 F0RJ=1 TO30 s INPUT#8 , L$ ( J) s NEXTJ $ PRINT " . " ; s CLOS 

E8 srem 182 

250 GOSUB1840sIFB>19THEN150 srem 95 

260 F$="INCDATA" s 0PEN8 , 8 , 8 , "0 s "+F$+ " , S , R" $ INPUT#8 , 

F1,D1, II SPRINT" ."; srem 65 

270 F0RJ=1T039 srem 71 

280 INPUT#8,FW$(J),FW(J) sNEXTJsPRINT" ."; srem 168 
290 P0RJ=lT09sINPUT#8,IT$(J),IT(J) sNEXTJsPRINT" ." 

; srem 94 

300 F0RJ=lT09sINPUT#8, DI$( J), DI( J) SNEXTJsPRINT" ." 

; s CLOSES :GOSUB1840 srem 165 

310 IFEM9THEN150 srem 213 

320 POKEBO , 4 $ POKEBA , 4 : POKE646 , 1 s P RINT " { CLR } 

{4 DOWN}": PRINTTAB (12) "ACCOUNT BALANCES" 

srem 37 

330 PRINTTAB(8)"{D0WN}1.{2 SPACES} JAN 1 BALANCES": 
PRINTTAB (8) "{DOWN} 2. {2 SPACES} INDIVIDUAL ACCOU 
NTS" srem 159 

340 PRINTTAB(8)"{DOWN}3.{2 SPACES} CURRENT BALANCES 
":PRINTTAB(8)"(DOWN}4.{2 SPACES} MAIN MENU" 

srem 206 

350 PRINTTAB(10)"{4 DOWN} PRESS DESIRED NUMBER" 

srem 140 

360 GETA$sIPA$=""THEN360 srem 85 

370 IFA$<"1"ORA$>"4"THEN360 srem 195 

380 AA=VAL(A$) :ONAAGOTO480, 390, 930, 1900 srem 167 
390 POKEBO ,14s POKEBA, 1 4 : POKE646 , 1 s PRINT " { CLR } 

(2 DOWN}" srem 144 

400 PRINTTAB (10) "INDIVIDUAL ACCOUNTS" srem 55 
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410 PRI11TTAB(6)"{DOWN}0.{2 SPACES) ACCOUNT BALANCES 
MENU" :F0RJ=1T09 sIFDI$ { J)=" "THENGOTO430 

trem 248 

420 PRINTTAB(5)J"{LEPr} .{2 SPACES} "DI$( J) irem 37 
430 NEXTJjPRINTTAB(10)" {2 DOWN} PRESS DESIRED NUMBE 

R" trem 44 

440 GETA$ :IFA$=""THEN440 :rem 83 

450 IFA$<"0"ORA$>"9"THEN440 :reni 197 

460 AA=VAL(A$) :IFAA=0THEN320 :rem 110 

470 PRINT: INPUT "TODAY'S DATE: " ;DA$ :GOTO970: rem 128 
480 P0KEB0,11:P0KEBA,11:P0KE646,1:DA$="1 "+M$(1)+" 
"+YR$:PRINT"{CLR}{4 DOWN}" :rem 200 

490 PRINTTAB(7)"ENTER DATA (E) OR VIEW (V)":PRINTT 

AB(12)"{4 DOWNlPRESS 'E' OR 'V'" :rem 189 

500 GETA$:IFA$=""THEN500 :rem 77 

510 IFA$="E"THEN550 :rem 25 

520 IFA$<>"V"THEN500 :rem 99 

530 PRINT :GOSUB1600:GOSUB1840:IFE>19THEN320 

:rem 167 

540 GOTO640 :rem 108 

550 PRINT"{CLR}":PRINTN$:PRINT:PRINT"TYPE ACCOUNT 

{SPACE} BALANCES AS OF" :rem 186 

560 PRINTDA$" OR 0.00": PRINT :rem 59 

570 FORJ=1TO9:IFDI$(J)=""THEN630 : rem 117 

580 BB$(J)=DI$(J) :rem 105 

590 PRINTBB$(J); :INPUT"{2 SPACES}?: ";BA$( J) :P$=BA$ 

(J) :rem 191 

600 GOSUB1870:IFEF=1THEN590 :rem 117 

610 Z$=RIGHT$(P$,3) :IFMID$(Z$,1,1)=". "THEN630 

:rem 223 

620 PRINT"ERROR — AMOUNT NOT IN X.XX FORM" :SYS828:F 
ORD=1TO1000:NEXT:GOTO590 :rem 175 

630 NEXTJ:6OSUB1410:6OSUB1530:IFE>19THEN320 

:rem 159 

640 PRINT" {CLR}":IFCB=0THENPN=20 :rem 37 

650 IFCB=1THENPN=21 :rem 138 

660 PRINTN$TAB(36)PN:IFCB=0THENPRINT"{UP} "DA$ 

:rem 191 

670 IFCB=1THENPRINT"{UP}AS OP ";DA$ :rem 189 

680 IFCB=1THENPRINT:PRINTTAB( 12) "CURRENT BALANCES" 

:GOTO700 :rem 216 

690 PRINT :PRINTTAB( 12) "ACCOUNT BALANCES" :rem 8 
700 PRINTTAB(12)"gl6 Tl ": PRINT: PRINT "ACCOUNT "TAB ( 3 

3) "AMOUNT" :rem 168 

710 PORL=lT039:PRINT"gTl"; :NEXT: PRINT :rem 113 

720 F0RJ=1T09:PRINTBB$(J)TAB(39-LEN(BA$(J)) )BA$(J) 

: NEXT J :rem 86 

730 PRINTTAB(30) "g9 Tl " : PRINTTAB ( 25) " {2 SPACES }$"T 

AB(39-LEN(BA$))BA$ :rem 174 

740 PRINT: PRINT "HARD COPY? (Y/N)" :rem 243 
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750 GETA$:IPA$=""THEN750 :rem 91 

760 IFA$="N"THENCB=0:GOTO320 :reni 137 

770 1FA$<>"Y"THEN750 :rein 116 

780 OPEN4,4,l:LB$=LEFT$(S$,57-LEN(N$) ) :PRmT#4,LA$ 

;N$;LB$;PN;LF$ srem 200 

790 IFCB=1THENPRINT#4,LA$;"AS OF " ;DA$ ;LF$ :rem 143 
800 LB$=LEFT$(S$,32) :rein 47 

810 IFCB=1THENPRINT#4,LF$;LF$;LB$; "CURRENT BALANCE 

S";LF$:GOTO830 :rem 200 

820 PRINT#4,LA$;DA$;LF$;LF$:PRINT#4,LB$; "ACCOUNT B 

AIiANCES";LF$ trem 211 

830 PRINT#4,LB$;"il2 T§" ;LF$ ;LF$ iPRINT#4 ,LA$ ; "ACCO 

UNT"; :rein 36 

840 LB§=IiEFT$(S$,47) :PRINT#4,LB$ ; "AMOUNT" ;LF$ 

:rem 121 

850 PRINT#4,LA$; :F0RL=1T045 :PRINT#4 , "iT§ " ; :NEXT:PR 
INT#4,LF$;LF$ :rem 86 

860 F0RJ=1T09:PRINT*4,LA$;BB$( J) ; :rem 205 

870 RA$=LEFT$ ( S$ , 60-LEN ( BB$ ( J ) ) -LEN ( BA$ ( J ) ) ) : PRINT 
#4,RA$;BA$(J) ;LF$:NEXTJ :reni 173 

880 LB$=LEFT$(S$,58) :PRINT#4,LB$;"i9 T3";LF$ 

:rein 102 

890 LB$=LEFT${S$,42) :PRINT#4,LB$ ;L$(17) ; " 

{3 SPACES}?"; trem 119 

900 RA$=LEFT$(S$,19-LEN(BA?)) :PRINT#4 , RA$ ; BA$ ;LF$ 

:rem 18 

910 LB$=LEFT$(S$,58) :PRINT#4,LB$;"i9 Tl" f CR$ :PRINT 

#4 , LB$ ; " DDDDDDDDD " :rem 194 

920 F0RSP=1T012:PRINT#4,LF$:NEXT:PRINT«4:CL0SE4:CB 

=0:GOTO320 :rein 72 

930 CB=l:PRINTt INPUT "TODAY'S DATE: " ; DA$ iF0RAA=lT09 

:IFDI$(AA)=""THEN950 :rem 35 

940 POKEBA, l-t-AA:POKEBO, 1+AA:GOSUB980 :BB$ (AA)-DI$ (A 

A) tBA$(AA)=B4$ :reml85 
950 NEXTAA:GOSUB1410:F$="CURBAL":GOSUB1540:IFE>19T 

HEN320 :rem 187 

960 SYS828:GOTO640 :rem 77 

970 POKEBO,4:POKEBA,4:POKE646,1 trem 114 

980 PRINT"{CLR) {3 DOWN} " :LL$=LEPT$( DI$ (AA) , 3) :PRIN 

TTAB(20-LEN(DI$(AA) )/2)DI$(AA) :PRINT trem 204 
990 GOSUB1600tGOSUB1650:PRINTtPRINT:Pl$=B4$fP2$=B2 

$tGOSUB1480 tB4$=P3$ trem 167 

1000 IFLL$="CAS"ORLL$="CHE"THENGOSUB1720 tPl$=B4$ :P 
2$=B5$tGOSUB1480tB4$»P3$ trem 56 

1010 IPLL$="CAS"ORLL$="CHE"THENPRINT:PRINTtrem 150 
1020 GOSUB1820:FORJ=1TO9 trem 195 

1030 IFTG$( J)=LL$THENB3$=TF$( J) trem 4 

1040 NEXTJtPl$-B4$ :P2$=B3$ t6OSUB1480 tB4$»P3$ 

trem 249 
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1050 G0SUB15 70 8 F0RJ=1T09 : IFAG$ ( J )=LL$THENB6$=AF$ ( J 

) I rem 31 

1060 NEXTJtPl$=B4$>P2$sB6$:GOSUB1480tB4$»P3$tIFCB=: 

ITHENRETURN :rem 201 

1070 PRINT" {CLR} "iPN=510+AA:PRINTN$TAB(35)PN:PRINT 

"{UP} ACCOUNT BALANCES" :rem 205 

1080 PRINT"AS OF ";DA$ : rem 167 

1090 F0RL=1T03:PRINT:NEXT!LG=LEN(DI$(AA) )/2:PRINTT 

AB(20-LG)DI$(AA) :rem 53 

1100 PRINTTAB(20-IiG) :F0RL=lT02*LGiPRINT"iT|" ; iNEXT 

:PRINT:PRINT"1 JAN BALANCE"; trem 101 

1110 PRZNTTAB(39-LEN(B1$) )B1$ :rem 111 

1120 PRINT "DEPOSITS"; :PRINTTAB( 39-LEN(B2$) )B2$ 

:rem 35 

1130 IFLL$="CAS "0RLL$="CHE "THENPRINT "EXPENDITURES " 

TAB(39-LEN(B5$))B5$ irem 221 

1140 PRINT"TRANSFERS"; :PRINTTAB( 39-LEN(B3$) )B3$ tPR 

INT "ADJUSTMENTS"; irem 12 

1150 PRINTTAB{39-LEN(B6$))B6$ jrem 125 

1160 PRINTTAB(29)"il0 Ti" :PRINTTAB( 5) "CURRENT BALA 

NCE{4 SPACES }$"; irem 90 

1170 PRINTTAB(39-LEN(B4$))B4$ :rem 123 

1180 PRINT" {3 DOWN}HARD COPY? (Y/N)" trem 142 

1190 GETA$sIFA$=""THEN1190 :rem 185 

1200 IFA$="N"THEN320 :rem 74 

1210 IFA$<>"Y"THEN119e trem 201 

1220 OPEN4,4,liLB$=LEFT$(S$,55-LEN(N$)) tPRINT#4,LA 

$;N$;LB$;PN;LF$ trem 236 

1230 PRINT#4 , LA$ ; "AS OF " ;DA$;LF$ tPRINT#4,LA$ ; "ACC 

OUNT BALANCES ";LF$;LF$ trem 166 

1240 LG=LBN(DI$(AA) )/2 iC=INT(l .5*LG) tLB$=LEFT$( S$ , 

40-LG) trem 131 

1250 PRINT#4,LB$;DI$(AA) ;LF$ trem 58 

1260 PRINT#4,LB$; tF0RL=lT0CtPRINT#4, "gT§" ; tNEXT 

trem 108 

1270 PRINT#4,LP$;LF$fLC$="l JAN BALANCE" trem 223 
1280 LB$=LEFT$(S$,59-LEN(IiC$)-LEN(Bl$) ) trem 111 
1290 PRINT#4 , IiA$ ; LC$ ; LB$ ; Bl$ ; LF$ t LC$= "DEPOSITS " 

trem 4 

1300 LB$=LEFT$(S$,59-LEN(LC$)-LEN(B2$)) :PRINT#4,LA 

$;LC§;LB$;B2$;LF$ trem 3 

1310 LC$»"EXPENDITURES"tLB$=LEFT$(S$,59-LEN(LC$)-L 

EN(B5§)) :rem 123 

1320 IFLL$="CAS"0RLL$="CHE"THENPRINT#4,LA$;LC$;LB$ 

;B5$;LF$ :rem 169 

1330 LC$="TRANSFERS"tLB$=LEFT$(S$,59-LEN(LC$)-LEN( 

B3$)) irem 147 

1340 PRINT#4,LA$ ;LC$ ;LB$; B3§ ;LF$ t LC$=" ADJUSTMENTS" 

trem 233 
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1350 LB$=LEFT$(S$,59-LEN(LC$)-LEN(B6$)) :PRINT#4,LA 
$;LC$;LB$;B6$;LF$ :rein 16 

1360 LB$=IjEFT$(S$,56) :PRINT#4,LB$;"il0 Tl";LF$ 

: rem 49 

1370 LC$="CURRENT BAIiANCE{6 SPACES} §" :LB$=LEFT$ ( S$ 

,30) :PR1NT#4,LB$;LC$; s rem 32 

1380 LB$=LEFT$(S$,39-LEN(LC§)-LEN(B4$) ) :PRINT#4,LB 

$;B4$;LF$ :rem 51 

1390 LB$=IiEFT$(S$,56) :PRINT#4,LB5!;"gl0 T§";CR$:PRI 

NT#4 ,LB$ 7 " DDDDDDDDDD " ;LF$ :rem 75 

1400 F0RSP=1T012 iPRINT#4,LP§ :NEXT :PRINT#4 i CL0SE4 :G 

OTO320 :rem 70 

1410 TA=0:TL=0:TR=0:TA$="" iF0RJ=lT09:P$=BA$( J) :IFP 

$=" ''THEN1430 :rem 103 

1420 GOSUB1450:TL=TL+PL:TR=TR+PR :rem 31 

1430 NEXTJ:TA=TL+TR:IPrA=0THENBA$="0.00" :RETURN 

:rem 200 

1440 BA§=STR$(TA+.001) :BA$=LEFT$ (BA$ ,LEN(BA$)-1) :R 

ETURN :rem 122 

1450 PL$=LEFT$(P$,LEN(P$)-3) :PIi=VAL(PL$) :rem 18 
1460 PR$=RIGHT$(P$,3) :PR=VAL(PR$) :IFPL<0THENPR=PR* 

-1 jrem 176 

1470 RETURN srem 172 

1480 TA=0:TL=0:TR=0:P$=P1$ :GOSUB1450 j TL=PL-1 iTR=PR 

+1:P$=P2$:GOSUB1450 :rem 184 

1490 TL=TL+PL:TI^TR+PR:TA=TIi+TR:IFTA=0THENP3$="0 .0 

0": RETURN :rem 25 

1500 IFTA<0THENP3$»STR$(TA-.001) irem 88 

1510 IPTA>0THENP3$=STR$(TA+.001) : rem 89 

1520 P3$=LEFT$(P3$,LEN(P3$)-1) :RETURN :rem 110 

1530 F$="BALANCE" :rem 154 

1540 OPEN15,8,15:PRINT#15, "S0: "+F$ :CL0SE15 :0PEN8,8 

,8,"0:"+F$+",S,W" :rem 204 

1550 PRINT#8,BA$", " irem 246 

1560 F0RJ=1TO9jPRINT#8,BA$( J)", "BB$(J)", "sNEXTJtCL 

OSES :GOSUB1840: RETURN :rem 70 

1570 B6$="0 .00" jF$="ADJUSTMENTS " : PRINT: PRINT "LOADI 

NG "fF$ trem 148 

1580 OPEN8,8,8,"0:"+F$+",S,R":INPUT#8,MAD :rem 254 
1590 F0RJ-1T09:INPUT#8,AG$( J),AF$( J) : NEXTJ : CLOSES : 

RETURN :rem 25 

1600 F$="BALANCE":PRINT "LOADING " ; F$ jOPEN8,8,8, "0 : 

"+P$+",S,R"sINPUT#8,BA$ irem 133 

1610 F0RJ=>1T09:INPUT«8, 11$ , 12$ :IFLL$=LEFT$( 12$ , 3)T 

HENB1$-I1$:B4$»B1$ trem 166 

1620 IFCB»0THENBA$( J)-I1$:BB$( J)=I2$ trem 239 

1630 NEXTJ :CL0SE8tIFB4$=""THENB4$=" 0.00" trem 39 
1640 RETURN trem 171 

1650 B2$="0.00":PRINT:PRINT"LOADING DEPOSITS FOR " 

:OPEN15,8,15tFOR^t-lT012 trem 111 
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1660 F$ = •' I NCOME " +M$ (M)iOPEN8,8,8,"0:"+F$+",S,R"sIN 

PUT#8,YR,MAX,M,TA$,I1$ :rem 42 

1670 INPUT#15,E,E$:IFE>19THENM=12:GOTO1710:rem 251 
1680 PRINTM$(M), jFORJ=lTOMAX-l : INPUT#8, 11$ , 12$ , 13$ 

,14$, 15$ :rem 120 

1690 IFI4$=LL$THENP2$=I5$iPl$=B2$:GOSUB1480:B2$=P3 

$ :rein 158 

1700 NEXTJ J rem 81 

1710 CL0SE8:NEXTM:CL0SE1 5: RETURN :reni 109 

1720 B5$="0. 00" :PRINT "LOADING EXPENDITURES FOR" : OP 

EN15,8,15:F0RM=1T012 :rem 222 

1730 F$="EXPENSE"+M$(M) iOPEN8,8,8, "0 2 "+F$+" ,S, R" s I 

NPUT#8,YR,MAX,M,TE$,I1$ :rein 137 

1740 INPUT#15,E,E$:IFE>19THENM=12:GOTO1800jrein 249 
1750 PRINTM$(M), iFORJ=lTOMAX-l :rem 85 

1760 INPUT#8 , 11$ ,CR$ , 12$ ,CR$ , 13$ ,CR$ , 14$ ,CR$ , 15$ ,C 

R$,I6$,CR$ :rem 226 

1770 IFI4$=:LL$THENP2$»I5$:Pl$»B5$:GOSUB1480tB5$=P3 

$ :rem 163 

1780 IPLL$="CHE"ANDVAL(I4$)>0THENP2$=I5$:P1$=B5$:G 

OSUB1480:B5$-P3$ :rem 45 

1790 NEXTJ :rem 90 

1800 CL0SE8 :NEXTM : CLOSEl 5 :I FLEPT$ (B5$ , 1 ) =SP$THENB5 

$=MID$(B5$,2) :rem 7 

1810 B5$=NN$+B5$:RETURN :rein 66 

1820 B3$="0.00":F$="TRANSFER"iPRINT"LOADING ";F$:0 

PEN8,8,8, "0:"+F$+",S,R" :rem 34 

1830 INPUT#8,MTR:F0RJ=1T09:INPUT#8,TG$( J),TF$(J) :N 

EXTJ: CLOSES: RETURN i rem 128 

1840 E=0:OPEN15,8,15:INPUT#15,E,E$ :rem 160 

1850 IFE>19THENPRINT:PRINTE$ :SYS828 :FORD=1TO5000 :N 

EXT :rem 197 

I860 CLOSEl 5 : RETURN : rem 197 

1870 EF=0:L1=LEN(P$) :PORL=lTOLl :T$=MID$( P$ ,L, 1) :AB 

=ASC(T$) :IFAB=46THENNEXT : rem 221 

1880 IFAB<480RAB>57THENL=L1:EF=1 :PRINT:PRINT"ERROR 
IN INPUT": SYS 8 28 :rem 31 

1890 NEXT: RETURN :rem 43 

1900 POKEBO,14:POKEBA,6:POKE646,14:PRINT"{CLR} 

{6 DOWN}" srem 7 

1910 PRINTTAB( 12) "REMOVE DATA DISK": PRINT :rem 1 
1920 PRINTTAB( 18) "AND":PRINT : rem 200 

1930 PRINTTAB( 10) "INSERT PROGRAM DISK" : PRINT: PRINT 

"14 DOWN}" ,rem 85 

1940 PRINTTAB(9) "PRESS 'C TO CONTINUE" :rem 38 
1950 GETA$ : IFA$=" "THEN1950 :rem 193 

1960 IFA$<>"C"THEN1950 :rem 195 

1970 POKE631,a3:POKE632,89:POKE633,83 :rem 110 

1980 POKE634 ,53 :POKE63 5 , 49 :POKE636 ,48 :POKE637 , 48 :P 

OKE638,48:POKE639,13 :rem 80 

1990 POkE198,9:NEW :rem 45 

238 
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UNPAID BILLS 

Remember to use the name above for the program you place on the PAM master disk. 

20 DIML$ ( 30 ) , M$ ( 12 ) , FW$ ( 40 ) , IT$ ( 10 ) , DI$ ( 10 ) tDZMUP$ 

(100,2) trem 158 

30 DIMFH(40),IT(10),DI(10) tN»100 :UPB«1 :PN=40 :BO=53 

280tBA=53281>UP$s"" irem 94 

40 LF$aCHR$(10) tCR$»CaiR$(13) i SP$»C2IR$ ( 32 ) tNCa80:PC 

a0 irem 143 

50 S$=" " sFORSP^lTONC iS$=S$-t-SP$ tNEXTiLA$sLEFT$ ( S$ , 1 

0)jLB$=""jRA$="" irem 62 

60 M$ ( 1 )=" JANUARY" : M$ ( 2 )="PEBRUARy " i M$ ( 3 )="MARCH " t 

M§(4)="APRIL" :rem 71 

70 M$ ( 5)="MAy" s M$ ( 6)=" JUNE " iM$ ( 7)=" JULY" : M$ ( 8)="AU 

GUST" :rem 49 

75 F1$="{H0ME}{15 DOWN } " : ER1$«=" {43 SPACES }"« rem 65 
77 F2§="{HOME}{13 DOWN} " jF3?=F2§+" { 2 UP}" irem 188 
80 M$(9)="SEPTENBER"tM$(10)°"OCTOBER" irem 119 

90 M$ ( 1 1 ) » "NOVEMBER " S M$ ( 1 2 ) » "DECEMBER " t POKEBO , 6 : PO 

KEBA,6:POKE646,liPRINT"{CLR}{3 DOWN}" irem 100 
100 PRINTTAB( 14) "UNPAID BILLS" iPORD=lTO5000 iNEXT 

:rem 218 

110 P0KEB0,14 :P0KEBA,6 tP0KE646 , 14 jPRINT" { CLR} 

{6 DOWN}" irem 207 

120 PRINTTAB( 10) "REMOVE PROGRAM DISK"|PRINT 

irem 197 

130 PRINTTAB(18)"AND"iPRINTtPRINTTAB(12)"INSERT DA 

TA DISK"tPRINTiPRINT"{4 DOWN}" irem 86 

140 PRINTTAB(9)"PRESS 'C TO CONTINUE" irem 237 
150 GETA$iIFA$<>"C"THEN150 irem 207 

160 POKEBO , 12 I POKEBA, 12 i P0KE646 , 1 : PRINT" { CLR } 

{2 DOWN} "tPRINTTAB( 14) "UNPAID BILLS" irem 86 
170 PRINT iPRINT irem 236 

180 PRINT "LOADING PERSONALIZED DATA " ; |F$="PERSDAT 

A" irem 198 

190 OPEN8 , 8 , 8 , " 1 " +P$+ " , S , R " I INPUT#8 , YR$ , N? , Nl $ , N2 

$,N3$,N4$tPRINT" ."; irem 27 

200 PORJ=lTO30tINPUT#8,L$(J) iNEXTJiPRINT" ."71CLOS 

E8iGOSUB1590iIFE>19THEN110 irem 178 

210 F$="INCDATA"iOPEN8,8,8, "0 1 "+F$+" ,S , R" iINPUT#8, 

Fl,Dl,IliPRINT" ."; irem 60 

220 P0RJ=1T039 irem 66 

230 INPUT#8,PW$( J) ,PW( J) iNEXTJiPRINT" .";iFORJ=lTO 

9tINPUT#8,IT$( J),IT(J) iNEXTJ irem 44 

240 PRINT" ."; trem 208 

250 F0RJ=1T09:INPUT#8,DI?(J),DI(J) iNEXTJiPRINT" ." 

; I CLOSES iGOSUBl 590 irem 171 

260 IFE>19THEN110 irem 213 

270 POKEBO , 6 1 POKEBA, 6 1 POKE646 , 1 1 PRINT" { CLR} 

{3 D0WN}"iPRINTTAB(14)"UNPAID BILLS" irem 15 
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280 PRIIJTTAB(14)"12 DOWN}l.{2 SPACES) VIEW LIST":PR 
INTTAB(14)" {l»WNl2.{2 SPACES} ADD" :rem 194 

290 PRIIITTAB(14)"{D0WN}3.{2 SPACES } CORRECT" 

:reni 125 

300 PRINTTAB(14)"{D0WNl4.{2 SPACES } DELETE " :PRINTTA 
B(14)"{DOWN}5>(2 SPACES}MAIN MENU" :rem 125 
310 PRINTTAB(10)"{2 DOWN}PRESS DESIRED NUMBER" 

:rem 102 

320 GETA$iIFA$=""THEN320 :rem 77 

330 IPA$<"1"ORA$>"5"THEN320 srem 188 

340 AA=VAL(A$) :ONAA6OTO1040, 350, 530, 820, 1650 

:rein 140 

350 PRINT"{CLR}{3 DOWN} " :PRINTTAB(14)"UNPAID BILLS 
"iGOSUB1560:GOSUB 2000 :PRINT" {CLR} {2 DOWN}" 

trem 192 

360 INPUT "ENTER CURRENT DATE: " ;DA$ :FORJ=UPBTON 

:rem 202 

370 PRINT: PRINT: INPUT "NAME OF CREDITOR" ;UP$( J , 1 ) 

:rem 10 

380 IFLEN(UP$ ( J , 1 ) ) > 28THENUP$ ( J , 1 )=LEFT$ (UP$( J , 1 ) , 
28) :rein 231 

390 PRINTP2$; :PU$=UP$(J,2) :INPUT"AMOUNT OWED";UP$( 
J,2) :P$=UP$( J,2) : rem 189 

400 6OSUB1620:IFEF=1THEN390 :rem 106 

410 Z$=RIGHT$(P$,3) :IFMID$(Z$,1,1)="."THEN430 

:rem 219 

420 PRINTF2$;ER1$;F2$; "ERROR— AMOUNT NOT IN X.XX F 
ORM":SYS828:FORD=1TO1000:NEXT :rem 113 

425 UP$(J,2)=PU$:G0SUB 5000:GOTO 390 :rem 241 

430 UPB=UPB+1:PRINT"{CLR} {6 DOWN} " : PRINTTAB ( 10) "AN 
OTHER ITEM? (Y/N)" : rem 60 

440 GETA$:IFA$=""THEN440 :rem 83 

450 IFA$="N"THENJ=N:GOTO480 trem 111 

460 IFA$<>"Y"THEN440 :rem 108 

470 PRINT"{CLR}{3 DOWN} " :PRINTTAB(14)"UNPAID BILLS 

:rem 1 

480 NEXTJ :PRINT"{DOWN}SORTING . " ; :GOSUB1440 : rem 83 
490 PRINT:PRINT"{DOWN}ADDING UP ALL YOUR BILLS":PR 

INT "WHEW"; ,rem 177 

500 FORZ=1TO20 tPRINT " 1 " ; :F0RD=1T035 :NEXTD , Z : PRINT : 

GOSUB1380:GOSUB1520 trem 160 

510 IFE>19THEN270 srem 218 

520 GOTO1060 ,rem 151 

530 PRINT " { CLR} " : POKEBO, 9 :POKEBA, 9 :POKE646 , 1 :PRINT 

"UNPAID BILLS ":PRINT :rem 27 

540 PRINTTAB (15) "CORRECT IONS": PRINT :rem 10 

550 GOSUB1560:GOSUB1590:IFE>19THEN270 trem 237 

560 LL=0:KK=14:PRINT" {CLR} "t PRINT "UNPAID BILLS": PR 

INT trem 185 

570 PRINTTAB (15) "CORRECTIONS": PRINT :rem 13 
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580 PRIMT"ITEM NO. {2 SPACES }NAME OF CREDITOR" tPRIN 
T:FORJ=lTOUPB-l :reni 2 

590 PRINTJTAB(10)UP$(J,1) :rem 191 

600 LL=LL+ltIFLL=>KKTHEN620 : rem 152 

610 NEXTJ:IFJ=>UPBTHEN670 irem 97 

620 PRINTiPRINTTAB(9)"PRESS *C' TO CONTINUE" 

trem 183 

630 GETA? iIFA$<>"C"THEN630 trem 213 

640 LL=0:PRINT"{CLR}":PRINTTAB(16)" {DOWN} CORRECT 10 

NS"tPRINT trem 250 

650 PRINT "ITEM NO. {2 SPACES)NAME OF CREDITOR" tPRIN 

T trem 63 

660 GOTO610 trem 108 

670 PRINTF1$;ER1$;F1$; t INPUT "ITEM NO. TO CORRECT"; 

A$ trem 90 

680 JJ=VAL(A$) tIFJJ<=0ORJJ>UPB-lTHEN670 trem 146 
690 PRINT" {CLR}"tPRINT"CORRECT ITEM ";A$tPRINT 

trem 182 

700 PRINT"PRESS RETURN IF NO CHANGEt " t PRINT t PRINT 

trem 111 

710 PRINT"NAME OF CREDITORt " tPRINTUP$(JJ, 1) ; t INPUT 
UP$(JJ,1) trem 151 

720 PU$=UP$ (JJ, 2) tPRINTF2$ "AMOUNT OWED 

{ SHIFT-SPACE )"UP$(JJ, 2) ; t INPUTUP$ ( JJ , 2 ) tP$=UP$ 
(JJ,2) trem 9 

730 GOSUB1620 t IFEF=1THENUP$ ( JJ , 2 )=PU$ tG0T07 20 

trem 242 

740 Z$=RIGHT$(P§,3) tIFMID$(Z$,l,l)=". "THEN760 

trem 231 

750 PRINTF2$7ER1$;F2$;"ERR0R-AMQUNT NOT IN X.XX FO 
RM"tSYS828tFORD=lTO1000tNEXT trem 74 

755 UP$(JJ,2)=PU$tG0SUB 5000tGOTO 720 trem 62 

760 PRINT"{CLR}{7 DOWN} "tPRINTTAB (10) "ANOTHER ITEM 
? (Y/N)" trem 178 

770 GETA$tIFA$=""THEN770 trem 95 

780 IFA$="Y"THEN560 trem 55 

790 IFA$<>"N"THEN770 trem 109 

800 GOSUB1440 t6OSUB1380 t6OSUB1520 1 IFE>19THEN270 

trem 103 

810 GOTO270 trem 107 

820 PRINT" (CLR}"tP0KEB0,2 tPOKEBA, 2 tPOKE646,l tPRINT 

"UNPAID BILLS" t PRINT trem 15 

830 PRINTTAB( 16) "DELETIONS"! PRINT trem 105 

840 GOSUB1560tGOSUB1590!lFE>19THEN270 trem 239 

850 LL=0fK=14fPRINT"{CLR}"tPRINT"UNPAID BILLS":PRI 

NT tPRINTTAB( 16) "DELETIONS "tPRINT trem 120 

860 PRINT"ITEM NO. "TAB ( 5) "NAME OF CREDITOR "t PRINT t 

FORJ=lTOUPB-l trem 164 

870 PRINTJTAB(5)UP$(J,1) trem 148 

880 LI/=LL+ltIFLIi=>KTHEN900 trem 88 
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890 NEXTJiIFJ=>UPBTHEN950 :rem 108 

900 PRINT:PRINTTAB(9)"PRBSS ' C TO CONTINUE" 

:rem 184 

910 GETA$tIFA$<>"C"THEN910 trem 215 

920 LI.«»0 tPRINT" {CLR} " x PRINTTAB ( 16 ) " {DOWN } DELETIONS 
"iPRINT :rem 87 

930 PRINT"ITEM NO. "TAB ( 5) "NAME OF CREDITOR" : PRINT 

trem 225 

940 6OTO890 trem 119 

950 PRINT t PRINT "PRESS ' C TO CONTINUE OR ANY KEY T 

EXIT" trem 171 

960 GBTA$tIPA$=""THEN960 trem 97 

970 IFA$<>"C"THEN270 trem 93 

980 PRINTFl $ ; ERl $ ; Fl $ ; t INPUT " IT^ NO . TO DELETE " ; A 

$ trem 255 

990 JJaVAL(A$) tIF JJ<=0 OR JJ>UPB-1 THEN980 

trem 154 

1000 PRINT" {CLR} "tPRINT "DELETE ITEM ";A$f PRINT 

trem 121 

1010 UP$(JJ,l)="ZZZZZZZZZZZZZZZZZZZZZZZZZ"iUP$( JJ, 
2)="0.00" trem 157 

1015 PRINT Fl$;"{3 DOWN) {6 SPACES} PRESS ANY KEY TO 

CONTINUE" trem 7 

1016 6ETR$tIFR$s"" THEN 1016 trem 213 
1020 PRINTtPRINT"{3 DOWN}SORTING . . " ; tGOSUB1440 tU 

PB=UPB-ltGOSUB1380tGOSUB1520 trem 121 

1030 6OTO270 trem 150 

1040 PRINT" ( CLR} " tPOKEBO ,6 iP0KEBA,6 tPOKE646 ,1 tPRIN 

Tt PRINTTAB (14) "UNPAID BILLS" trem 207 

1050 GOSUB1560tGOSUB1590tIFE>19THEN270 trem 25 

1060 K»14t6OSUB1340tFORJalTOUPB-l trem 247 

1070 IFLEN( UP? ( J , 1 ) ) > 28THENUP$ ( J , 1 )=LEFT$ ( UP$ ( J , 1 ) 

>28) trem 20 

1080 PRINTUP$(J,1)TAB(39-LEN(UP$(J,2)))UP$(J,2) tLL 

=IiL+ltIFLL=>KTHEN1100 trem 167 

1090 NEXTJtIFJ»>UPBTHEN1130 trem 188 

1100 PRINTtPRINTTAB(9)"PRESS 'C TO CONTINUE" 

trem 225 

1110 GETA$tIFA$<>"C"THEN1110 trem 41 

1120 GOSUB1340tGOTO1090 trem 73 

1130 PRINTTAB ( 29 )"gl0 Tl" trem 135 

1140 PRINTTAB( 10) "TOTAL 0WED{4 SPACES} $"; t PRINTTAB 

(39-LEN(UP$))UP? ,rem 124 

1150 PRINT tPRINT "HARD COPY? (Y/N)" trem 31 

1160 GETA§tIFA§=""THEN1160 irem 179 

1170 IFA$="Y"THEN1200 srera 137 

1180 IFA$<>"N"THEN1160 ,rem 193 

1190 GOTO270 ,rem 157 

1200 OPEN4,4,ltLB$=LEPT$(S$,57-LEN(N$) ) tPRINT#4,LA 

$;N$;LB$;PN;LF$ ,rem 236 
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I — I 1210 PRINT#4,LA$;DA$;LF$;LF$ :LB$=LEFT$(S$,34) iPRIN 

I I T#4,LB$; "UNPAID BILLS" ;LP$ :rein 193 

1220 PRINT#4,LB$;"g9 T§" ;LF$ ;LP$ :PRINT#4 ,LA$ ; "NAME 
OF CREDITOR"; :reni 106 

j } 1230 LB$=LEFT$(S$,38) :PRINT#4,LB$;"AMOUNT";LF$ 

trem 163 

1240 PRINT#4,LA$;iFORL=lT045:PRINT#4,"gT§"; :NEXTjP 
RINT#4,LF$;LF$ 2F0RJ=1T0UPB-1 irem 65 

1250 PRINT#4,LA$;UP$( J,l) ; :rein 192 

1260 LB$=LEFT$(S$,60-LEN(UP$(J,1))-LEN(UP$(J,2) ) ) 

:rem 158 

1270 PRINT#4,LB§;UP$(J,2);LF$:NEXTJ :rem 61 

1280 LB$=LEFT$(S$,48) :PRINT#4,LB$, "B9 T3";LF$ 

:rein 129 

1290 LB$=LEFT$ (S$, 40) jPRINT#4,LB$; "TOTAL OWED 

{4 SPACES }$"; :rem 239 

1300 RA$=LEFT$(S$,15-LEN(UP$)) iPRINT#4,RA$;UP$;LF$ 

:rem 125 

1310 LB§=LEPT$(S$,58) iPRINT#4,LB$;"i9 Tl";CR$:PRIN 
T#4,LB$ ; " DDDDDDDDD " ;LF$ :rein 222 

1320 F0RSP=1T012 tPRINT#4,LF$ :NEXT:PRINT#4 :CLOSE4 tG 
OTO270 srem 75 

1330 PRINTTAB(4)"{4 DOWN}PRESS 'M' TO RETURN TO MA 
IN MENU" I rem 224 

1340 Lli=0 jPRINT" { CLR} " :PRINTN$TAB( 36)PN:PRINT" {UP} 
"DA$:PRINT :rein 223 

1350 PRINTTAB( 14) "UNPAID BILLS" :reni 94 

1360 PRINTTAB(14)"gl2 T3 ": PRINT "NAME OF CREDITOR"T 
AB( 33) "AMOUNT" :rem 143 

1370 P0RL=1T039 :PRINT"gT§" ; iNEXT: PRINT: RETURN 

:rem 190 

1 380 TA=0 : TL=0 1 TR=0 1 TA$=" " :F0RJ=1T0UPB-1 : P$=:UP§ ( J , 
2):6OSUB1410 : rem 196 

1 390 TL=TL+PL : TR=TR+P R : NEXTJ i T A=TL+TR i I FT A=0 THENU P 
$="0.00": RETURN :rem 253 

1400 UP$=STR$(TA+.001) :UP$=LEFT§(UP$,LEN(UP$)-1) :R 
ETURN :rem 254 

1410 PL$=LEFT$(P$,LEN(P$)-3) :PIr=VAL(PL$) :rem 14 
1420 PR$=RIGHT$(P$,3) iPINVAL( PR$ ) :IFPL<0THENPR=PR* 
-1 :rem 172 

1430 RETURN :rem 168 

1440 IFUPB=<2THEN1510 :rem 224 

1450 PRINTS PRINT" {3 DOWN}SORTING . . " ; :FORJJ=lTOUP 
B-2 iFORKK=JJ+lTOUPB-l srem 42 

1460 IFUP$(KK,1)>UP$( JJ,1)THEN1500 srem 165 

1470 SM$=UP$(KK,1) sRM$=UP$(KK,2) srem 34 

1480 UP$(KK,1)=UP$( JJ,1) sUP$(KK,2)=UP$( JJ,2) 

srem 179 

1490 UP$( JJ,1)=SM§ sUP$( JJ,2)=RM$ srem 32 
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1500 NEXTKKjNEXTJJ s rem 168 

1510 RETURN :reni 167 

1520 P$="UNPAID BILLS":PPEN15,8,15:PRINT#15,"S0:"+ 

P$jCIiOSE15 xPRINT srem 161 

1530 PRINT "SAVING ";F$ :reni 7 

1540 OPEN8,8,8,"0i"+F$+",S,W":PRINT#8,UP$","UPB", " 

DA$", ":FORJ=lTOUPB-l i rem 148 

1550 PRINT#8,UP$(J,1)","UP$(J,2)", " jNEXTJ :CL0SE8 :G 

OSUB1590:RETURN :rem 144 

1560 F$="UNPAID BILLS" :PRINT:PRINT"LOADING ";F$:OP 

EN8,8,8,"0:"+F$+",S,R" :reni 170 

1570 INPUT#a,UP$,UPB,DA$ :F0RJ=1T0UPB-1 iINPUT#8,UP$ 

(J,1),UP$(J,2^ tNEXTJtCLOSSS :rein 1 

1580 RETURN :reni 174 

1590 E=>0tOPEN15,8,15:INPUT«15,E,E$:IFE>19THENPRINT 

tPRINTE$tSYS828 :reni 31 

1600 PORD=1TO5000 :NEXT J rem 65 

1610 CL0SE15 {RETURN irem 190 

1620 EF=0:L1=LEN(P$) :FORL=lTOLl :T$=MID§(P$,L,1) :AB 

sASC(T$) :IFAB=46THENNEXT trem214 
1630 IFAB<480RAB>57THENL=L1 :EF»1 tPRINTF2$ ;ER1$ ;F2$ 

7 "ERROR IN INPUT "tSYS8 28 :rem 38 

1640 GOSUB 5000 :NEXT: RETURN :rem 163 

1650 POKEBO , 14 t P0KBBA,6 :POKE646 , 14 :PRINT" { CLR} 

{6 DOWN}" :rem 9 

1660 PRINTTAB( 12) "REMOVE DATA DISK":PRINT : rem 3 
1670 PRINTTAB ( 18 ) "AND PRINT :PRINTTAB( 10) "INSERT P 

ROGRAM DISK" :rem 118 

1680 PRINT: PRINT "{4 DOWN)" srem 171 

1690 PRINTTAB(9)"PRESS 'C TO CONTINUE" :rem 40 
1700 GETA$>IFA$a""THEN1700 trem 179 

1710 IFA$<>"C"THEN1700 trem 181 

1720 POKE631,83:POKE632,89:POKE633,83 :rem 103 

1730 POKE634 , 53 :POKE635 , 49 :POKE636 , 48 :POKE637 , 48 :P 

OKE638,48:POKE639,13 :rem 73 

1740 P0KE198,9:NEW :rem 38 

2000 OPEN 15,8,15, "10" tCLOSElS {RETURN trem 105 

5000 REM FORMAT trem 114 

5010 PRINT Fl$;ERl$;F2$;ERl$7F3$tRETURN trem 5 



STMNT OF l&E 

Remember to use the name above for the program you place on the PAM master disk. 

20 DIMFW(40y,NE(60),DE(25),OE( 15) , CE( 40) , IT( 10) , DI 
(10) trem 55 

30 N=>100tKsl3tYP»0tBO-53280tBA»53281 trem 252 

40 E1=0 : E2^ t E3'^ t E4=0 t F1=0 1 Dls0 1 11=0 1 AAf0 t Y<« tYR= 
0tPN=0 trem 191 
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50 MA=€I I MY=0 : M=« : LL=« i LK=0 : E>=0 : TA=»0 1 Tlr=0 : TI^0 : P1>0 

:PR=0:IiJ=0 irem 163 

60 LF$=CHR$(10) :CR$=CHR§(13) :SP$=CHR$(32) :NC=80iPC 

=0 trem 145 

70 S$=" " :P0RSP=1T0NC : S$=S$+SP$ iNEXT: LA$=LEFT$( S$ , 1 

0) :LB$="":RA$=" srem 30 

80 A$=" ":D$=" ":F$=" " jYR$=" " iN$=" " tNl$=" " :N2$=" " J N3 

$="":N4$=" irem 169 

90 T A$ = " " : TE$ = " " I TX$ = " " : T Y$ = " " : NN$ =" - " : S D$ =" 

:rein 46 

100 E$="":El$=""tE2$=""iE3$=""iE4$=""iE5$=""jE6$=" 

trem 102 

110 I1$="":I2$="":I3$="":I4$="":I5$=" irem 253 

120 P$="":Pl$="":P2$=""jP3$="":PL$=""iPR$=" 

I rem 133 

130 DIML$(30),M$(12),IS(100,5),E$(100,6) irem 152 
140 DIMFW$ ( 40 ) , NE$ ( 60 ) , DE$ ( 25 ) , 0E$ ( 15 ) , CE$ ( 40) , IT$ 

(10),DI$(10) irem 102 

150 M$ ( 1) =" JANUARY" i M$ ( 2)="FEBRUARY" : M$ ( 3) ="MARCH" 

:M$(4)»"APRIL trem 85 

16 M$ ( 5 ) = " MAY " t M$ ( 6 ) = " JUNE " : M$ ( 7 ) = " JUL Y" : M$ ( 8 ) =" A 

UGUST trem 63 

170 M$(9)="SEPTEMBER"tM§(10)="OCTOBER trem 133 

1 80 M$ ( 1 1 ) » " NOVEMBER " t M$ ( 1 2 ) = "DECEMBER " t POKEBO , 5 t P 

0KEBA,5 tPOKE646,l trem 193 

190 PRINT"{CLR}{3 DOWN) " tPRINTTAB{ 4) "STATEMENT OP 

{ SPACE ) INCOME AND EXPENSE"tPRINTiPRINT trem 22 
200 FORD»:lTO5000tNEXT trem 12 

210 POKEBO,14tPOKEBA,6tPOKE646,14 trem 204 

220 PRINT"{CLR} {6 DOWN} " tPRINTTAB( 10 ) "REMOVE PROGR 

AM DISK" t PRINT trem 202 

230 PRINTTAB(18)"AND"tPRINTtPRINTTAB(10)"INSERT DA 

TA DISK" t PRINT "{4 DOWN} trem 108 

240 PRINTTAB(9)"PRESS ' C TO CONTINUE trem 204 

250 GETA$ tIFA$<>"C"THEN250 trem 209 

260 POKEBO, 5 tP0KEBA«5 tPOKE646,l tPRINT"{CLR} 

{3 DOWN} trem 27 

270 PRINTTAB( 4) "STATEMENT OP INCOME AND EXPENSE" tP 

RINTtPRINT trem 68 

280 PRINT "LOADING PERSONAL DATA . " ; iP$="PERSDATA 

trem 167 

290 OPENS ,8 ,8, "0 f "+P$ + " ,S,R" t INPUT#8 ,YR$ ,N$ ,N1$ ,N2 

$,N3$,N4$ tPRINT" ."; trem 28 

300 FORJ=lTO30iINPUT#8,L$( J) tNEXTtPRINT" ."rtCLOSE 

8fGOSUB1970 :IFE>19THEN210 trem 108 

310 F$ = " INCDATA " t OPENS , 8 , 8 , " 1 " + F$ + " , S , R " t INPU T#8 , 

F1,D1,I1 tPRINT" ."; trem 61 

320 PORJ=lT039f INPUT#8,FW${ J), FW( J) tNEXTtPRINT" ." 

; trem 65 
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330 FORJ=lT09tINPUT#8,IT$( J),IT( J) :NEXT : rem 155 
340 PRINT" .";:F0RJ=1T09:INPUT#8,DI$(J),DI( J) :NEXT 

:PRINT" ."; :CLOSE8iGOSUB1970 :rem 215 

350 IFE>19THEN210 :reni 214 

3 60 F$ = "EXPDATA " s OPENS , 8 , 8 , " : " +F$ + " , S , R " : INPUT#8 , 

E1,E2,E3,E4:PRINT" ."; : rem 249 

370 F0RJ=1T059 : INPUT #8 , NE $ ( J ) , NE ( J ) : NEXT : PRINT " . " ; 

; trem 52 

380 F0RJ=1T025:INPUT#8,DE$( J),DE( J) :NEXT :rem 166 
390 PRINT" . "; :F0RJ=1T015:INPUT#8,0E$( J),OE(J) :NEX 

T:PRINT" ."; :F0RJ=1T039 j rem 140 

400 INPUT#8,CE$( J),CE( J) :NEXT:PRINT" . " ; :CL0SB8 :GO 

SUB1970tIFE>19THEN210 :rem 25 

410 P0KEB0,5 xP0KEBA,5 :P0KE646,1 :PRINT" {CLR} 

{3 DOWN} J rem 24 

420 PRINTTAB( 4) "STATEMENT OF INCOME AND EXPENSE": P 

RINTjPRINT :rem 65 

430 PRINTTAB(13)" {D0WN}1. MONTH" :rem 234 

440 PRINTTAB(13)"{D0WN}2. YEAR TO DATE " xPRINTTAB( 1 

3)"{DOHN}3. MAIN MENU :rem 153 

450 PRINTTAB(10)"{3 DOVfN}PRESS DESIRED NUMBER 

:rem 90 

460 GETA$:IFA$=""THEN460 irem 87 

470 IFA$<"1"ORA$>"3"THEN460 :rem 196 

480 Ai^VAL(A$) :ONAAGOTO770, 490, 2000 :rem 219 

490 P(XCEB0,2 :P0KEBA,2 tP0KE646,l :SYS828 :PRINT" {CLR} 

I rem 194 

500 PRINT "STATEMENT OF INCX)ME AND EXPENSE FOR YEAR 
TO DATE. ": PRINT I PRINT : rem 235 

510 PRINT "THIS REPORT WILL NOT BE ACCURATE UNLESS 

:rem 43 

520 PRINT "THE FOLLOWING ARE UP TO DATE: " tPRINTjPRI 
NT trem 

530 PRINTTAB(5)"R0UTINE{12 SPACES }OPT ION " :PRINT 

:rem 140 

540 PRINTTAB(5)"INC0ME{13 SPACES}YEAR TO DATE 

:rem 82 

550 PRINTTAB(5)"EXPENSE{12 SPACES} YEAR TO DATE":PR 
INT:PRINT :rem 96 

560 PRINT"ARE THESE FILES UP TO DATE? (Y/N)":PRINT 

:rem 195 

570 PRINT"PRESSING 'N' WILL RETURN YOU TO THE MAIN 
MENU; PRESS ' Y' TO CONTINUE. :rem 234 

580 GETA$tIFA$=""THEN580 :rem 93 

590 IFA$="N"THEN2000 :rem 82 

600 IFA$<>"Y"THEN580 :rem 109 

610 PRINT " ( CLR } " : POKEBO, 1 5 :POKEBA, 1 5 :POKE646 , 1 1 :YP 
=1 :rem 237 

620 PRINTTAB( 6) "STATEMENT OF INCOME AND EXPENSE":? 
RINT:PRINT:PRINT :rem 12 



246 



r-1 



I I 



CHAPTER 
FOURTEEN 



630 PRINT:INPUT"TODAY' S DATE" ;D$ :E1$="L0ADING INCO 

ME ."jPRINT :rem 243 

640 FORBslTOLEN(El$) tPRINTMID$(El$,B,l) .* iF0RZ=>lT03 

5:NEXT:NEXT srem 58 

650 P$="INCOME"+" "+YR$ :rein 170 

660 OPE»S,8,8,"0:"+F$+",S,R":INPUT#8,YR,MA,TA$,N$t 

F0RKK=1T0MA-1:PRI1JT" ."; :rein 10 

670 INPUT#8,I$(KK,2),I$(KK,3),I$(KK,4),I$(KK,5) jNE 

XT: CLOSES :rein 103 

680 GOSUB1970:IFE>19THEN410 trem 105 

690 E1$«"L0ADIN6 EXPENSE ."tPRINT :rein 197 

700 F0RB=1T0LEN(E1$) >PRINTMID$( El$ ,B, 1) ; iFORZalTOS 

5:NEXT:NEXT trem 55 

710 F$="EXPENSE"+" "+YR$ J rem 4 

7 20 OP EN8 , 8 , 8 , " : " +F§ + " , S , R " : I NPUT# 8 , Y R, MY , T E$ , N $ : 

P0RJB=1T0MY-1 :rem 189 

730 INPUT*8,E$(JB,2),E$( JB,3),E$(JB,4),E$(JB,5),E$ 

(JB,6) trem 159 

740 PRINT" . "; :NEXT:CL0SE8 trem 54 

750 GOSUB1970:IFE>19THEN410 :rein 103 

760 GOTO1050 trem 156 

770 PRINT"lCLR}"»POI5BBO,15 jP0KEBA,15 jPOKE646,ll 

trem 163 

780 PRItlTTABC 6) "STATEMENT OF INCOME AND EXPENSE" :P 

RINT: PRINT trem 76 

790 PRINT "MONTH NUMBER (2 DIGITS, 01 TO 12)": INPUT 

"OF REPORT DESIRED ";M trem 161 

800 PRINTtF$="INCOME"+M$(M) :E1$="L0ADING INCOME FO 

R "+M$(M) trem 110 

810 F0R&=1T0LEN(E1$) :PRINTMID$( El$ ,B, 1) ; :F0RZ=1T03 

5 :NEXT: NEXT: PRINT trem 

820 OPEN8,8,8,"0:"+F$+",S,R" trem 167 

830 INPUT#8,YR,MA,M,TA$,N$ :JB=1:LL=0 trem 134 

840 INPUT#8,I$(JB,1),I$(JB,2),I$(JB,3),I$(JB,4),I$ 

(JB,5) :IFMAs<2THEN900 trem 122 

850 F0RJI>=2T0MA-1 1 INPUT#8 , 11$ , 12$ , 13$ , 14$ , 15$ tFORJ 

C=1T0JB trem 124 

860 I FI $ ( JC , 3 )» I3$THENG0SUB1 540 1 LI/=LI/fl t JC^uTB t NEXT 

:GOTO890 trem 77 

870 NEXT trem 222 

880 JB= JBf 1 tl$ ( JB, 1 ) = I1$ tl$ ( JB, 2 ) =12 $ tl$ ( JB, 3 )-I3$ 

tI$(JB,4)-l4$tI$(JB,5)=I5$ trem 17 

890 NEXTtMA=MA-LL trem 56 

900 CLOSE8tGOSUB1970iIFE>19THEN410 trem 76 

910 F$s"EXPENSE"+M$(M) tEl$="LOADING EXPENSE FOR "+ 

M$(M) trem 99 

920 FORB»lTOIi£N( El$ ) tPRINTNID$(El$,B,l) ; tF0RZ»lT03 

StNEXTtNEXT trem 59 

930 OPBN8,8,8,"0t"+F$+",S,R" trem 169 
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940 INPUT#8,YR, Mr,M,TE$ ,N$ jJB=l jLJ=»0 iF0RJE=1T06 : IN 
PUT#8,E$( JB,JE) tNEXT t rem 100 

950 ZFMY»<2THEN1030 trem 113 

960 P0RJD=2T0My-l »rein 42 

970 IIirPUT«8,El$ ,CS$ ,E2$ ,CR$ ,B3$ ,CR$ ,E4$ ,CB$ ,E5$ ,CR 
$,E6$,CR$»FORJC=lTOJB : rem 231 

980 IFE$(JC,6)aE6$THENGOSUB1550tLJsLJ+l tJOJBiNEXT 
:GOTO1020 trem 109 

990 NEXT trem 225 

1000 JB=JBfltE$(JB,l)=El$ tE$(JB,2)=E2$iE$( JB,3)=E3 
$iE$(JB,4)»E4$tE$(JB,5)=E5$ trem 10 

1010 E$(JB,6)»E6$ trem 70 

1020 NEXTiMY=MY-LJ trem 136 

1030 ajOSE8tGOSUB1970iIFE>19THEN410 trem 119 

1040 6OTO1050 trem 196 

1050 P0KEB0,5 tPOKEBA.S tP0KE646,l tK=:13 tGOSUBl 380 :PR 
INT" { DOWN} INCOMEt "tPRINTtLIi=LL+3 trem 35 

1060 P0RJ=1T0MA-1 tPRINTTAB(2)I$(J,3)TAB(29)"$"7 

trem 179 

1070 PRINTTAB(39-LEN(I$(J,5)))I$(J,5) trem 24 

1080 LIi»LL+ltIFLI>=KTHENGOSUB1360 trem 244 

1090 NEXTtIFJ=:MATHBN1100 trem 216 

1100 PRINTTAB(28)"ill Tl " : PRINTTAB ( 12) L$ ( 15 ) " 

(5 SPACES }$"; trem 66 

1110 PRINTTAB(39-LEN(TA$) )TA$ trem 179 

1120 PRINTtLI^LL+2t IFLI/»>KTHENGOSUB1360 trem 245 
1130 IFyP»0THEN1180 trem 99 

1140 PRINTTAB(12)"NET ADJUSTMENTS! 2 SPACES) $"; tGOS 

UB1940tPRINTTAB(39-LEN(AT$)')AT$ trem 108 

1150 PRINTTAB(28)"ill Tf" iLIi==LL+2 tIFLIr=>KTHENGOSUB 

1360 trem 207 

1160 PRINTTAB( 12) "TOTAL AVA1LABLE{2 SPACES} $"; :GOS 

UB1560tPRINTTAB{38-LEN(TY$))Ty$ trem 103 

1170 PRINT tLIi=LL+2tIFLL=>KTHENG0SUBl 360 trem 250 
1180 PRINT "EXPENDITURES! " t LI^LU-1 1 1 FLDs>KTHENGOSUB 

1360 :rem 24 

1190 PRINTtLI^LU-ltIFLIis>KTHEN6OSUB1360 trem 251 
1200 F0RJ&=lTOMy-l tLK=LEN( E$ ( JB, 3 ) ) tIFLK> 22THENE$ ( 

JB,3)=I.EFT§(E${JB,3),22) jrem 22 

1210 PRINTTAB(2)E$(JB,3)iaB{24)E$( JB,6)TAB(29)"$"; 

trem 188 

1220 PRINTTAB(39-LEN{E$(JB,5)))E$(JB,5) trem 145 
1230 LL»IJ>ltIFLI/»>KTHENGOSUB1360 irem 47 

1240 MEXTtIFJB»MyTHEN1250 trem 53 

1250 PRINTTAB(28)"gll T3" tLL=LIi+l iIFLL»>KTHENGOSUB 

1360 ,rem 207 

1260 PRINTTAB(15)L$(14)" $" ; tPRINTTAB(39-LEN(TE$) ) 

TE$tLIi=LU-l trem 226 

1270 IFLIi=>KTHENGOSUB1360 :rem 48 

1280 PRINTtLLi:LI/fltIFLIrs>KTHENGOSUB1360 trem 251 
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n 



1290 



1300 
1310 
1320 
1330 
1340 
1350 
1360 

1370 
1380 

1390 

1400 
1410 

1420 
1430 

1440 

1450 
1460 

1470 

1480 
1490 
1500 
1510 
1520 

1530 
1540 

1550 

1560 

1570 
1580 

1590 

1600 

1610 



GOSOBl 5 70 : P RI NTT AB ( 6 ) " SU RPL US ( + ) / DEFI C IT ( - ) 
{2 SPACES} $"; tPRINTTAB( 39-LEN(SD$) )SD$ 

I rem 110 

PRINT: LL=LL+2 1 1 FLIi»>KTHENGOSUBl 360 
PRINT" { DOWN }HARD COPY (Y/N) 7 
GBTA§ jIPA$=" '•THEN1320 
IPA§»"N"THENYP=0:GOTO410 
IPA$< > " Y''THEN1 320 
GOTO1590 

PRINTtPRINTTAB(9)"PRESS 'C 



215 
200 
209 



TO 



I rem 245 
trem 69 
trem 175 
:rem 
trem 
trem 
CONTINUE 

trem 199 

GETA$tIFA$<>"C"THEN1370 trem 57 

PRINT" {CLR} " tPN=205+10*Mt IFYPalTHENPNo 160 

trem 96 

PRINTN$TAB(35)PNtIFYP=lTHENPRINT"{UP)AS OF 
D$:GOTO1410 trem 112 

PRINT" { UP) "M$(M)+" "+YR§ trem 159 

PRINTtPRINTTAB (4) "STATEMENT OF INCOME AND EXP 
ENSE trem 136 

PRINTTAB(4)"g31 T3 trem 143 

PRINT "FROM /TO WHOM "TAB ( 23 ) "ACT* "TAB( 33 ) "AMOUN 
T" trem 76 

FORL=>lT039tPRINT"gT3" ; tNEXTtPRINTtIJ>0 

trem 225 

RETURN trem 170 

TAa 1 TliS 1 TR= 0tP$sPl$tGOSUB1510t TL^ PL- 1 1 TR» PR 
-t-ltP$sP2$tGOSUB1510 trem 176 

TI>TL+PL I TR»TR+PRt TA-TL+TR t IFTA»0THENP3$"" .0 
0"tRETURN trem 23 

IFTA<0THENP9$sSTR$(TA-.001) trem 95 

IFTA>0THENP3$»STR$(TA-(-.001) trem 96 

P3$sLEFT$(P3$,LEN(P3$)-l) t RETURN trem 108 

PL$=°LEFT$(P$,LEN(P$)-3) tPIi»VAL(PL$) trem 15 
PR$sRIGHT$(P$,3) tPR»VAL(PR$) tIFPL<0THENPI^PR* 
-1 trem 173 

RETURN trem 169 

P1$»I$(JC,5) tP2$sI5$ t6OSUB1460tI$(JC,5)aP3$tR 
ETURN trem 128 

P1$>E$(JC,5) tP2$aE5$ tGOSUB1460iE$(JC,5)=>P3$tR 
ETURN trem 117 

Pl$sTA$ tP2$=<AT$ :GOSUB1460tTY$»P3$ tRETURN 

trem 203 

Pl$»TA$tTX$»TE$tIFYP»lTHENPl$aTY$ trem 46 

TE$bNN$-I-TE$ tP2$»TE$ tGOSUBi460 tSD$sP3$ tRETURN 

trem 194 

PRINT" {CLR}"tPRINTTAB( 4) "STATEMENT OF INCOME 
( SPACE }AND EXPENSE trem 104 

PRINTTAB ( 1 3 ) " { DOWN} PRINT REPORT " tOPEN4 ,4 , 1 1 LB 
$sLEFT$(S$,56-LEN(N$) ) trem 161 

PRINT*4,LA$;N$;LB$;PN;LF$ trem 237 
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1620 IPYP=1THENPR1I!JT#4,IA$;"AS OF " jD$ ;LF$ ;LF$ iGOT 

01640 trem 202 

1630 PRmT#4,LA$;M$(M)+" "+YR$ ;LF$ ;LF$ :rem 32 

1640 LB$sLEFT$( S$, 24) tPRINT#4,LB$; "STATEMENT OF IN 

COME AND EXPENSE" ;LF$ trem 191 

1650 PRlirP#4,LB$;"g23 Ti" ;LF$ iPRlNT#4 ,LA$ ;"PROM/TO 
rnXM^t trem 153 

1660 LB$bLEFT$(S$,27) >PRINT#4,LB$;"ACT#{11 SPACES} 

AMOUNT" ;LP$ trem 163 

1670 PRINT#4,LA$; tFORL=lT045tPRINT#4,"gT|";tNEXT:P 

RINT#4,LF$;LF$ trem 135 

1680 PRINT#4 ,LA$ ; "INCOME: " jLF$ 7LF$ iPORJ=lTOMA-l 

trem 78 

1690 LB$=LEPT§(S$,12) tPRINT#4,LB$;I$(J,3); trem 62 
1700 RA?=LEFT§(S$,46-LEN(I$(J,3))) tPRINT#4,RA$;"$" 

; trem 12 

17 10 RA$=LEPT$ ( S$ , 1 1- LEN( 1$ ( J , 5 ) ) ) iPRINT#4 , RA$ ; 1$ ( 

J,5) ;LF$:NEXTtIFJ=MATHEN1720 trem 14 

1720 LB$=LBFT$(S$,58) tPRINT#4,LB$;"g9 Tl" ;LF$ 

trem 144 

1730 LB$»LEFT$(S$,40) tPRINT#4 ,LB$ ;L$( 15) ;" 

{6 SPACES }$"; trem 157 

1740 LB§=LBFT$(S$,11-LEN(TA$)) :PRINT#4 ,LB$ ; TA$ ;LF$ 

;LP$ :IFyp=0THEN1800 trem 31 

1750 LB$=LEFT$(S$,40) :PRINT#4,LB$;"NET ADJUSTMENTS 

(3 SPACES }$"; trem 118 

1760 LB?»LEFT$(S$,11-LEN(AT$)) tPRINT#4,LB$;AT$;LF$ 

trem 89 

1770 LB$»LEFT$(S$,58) tPRINT#4,LB$;"i9 Tl" ;LF$ 

trem 149 

1780 LB$=LEFT$( S$ ,40) tPRINT«4 ,LB$ ; "TOTAL AVAILABLE 
{3 SPACES}?"; trem 69 

1790 LB$=LEFT§(S$,11-LEN(TY$)) tPRINT#4,LB$;TY$ ;LF$ 
;LF§ trem 125 

1800 PRINT*4,LA$ ; "EXPENDITURESt " ;LF$ ;LF$ tFORTBslTO 
MY-l trem 135 

1810 LB$»LEFT$(S$,12) tPRINT#4 ,LB$ ; E$( JB, 3) ; 

trem 118 

1820 RA$=LEFT$(S$,41-LEN(E$(JB,3))-LEN(E$(JB,6))) t 
PRINT#4,RA$;E$(JB,6); trem 141 

1830 LB$»LEPT§(S§,5) iPRlNT#4,LB$;"$"; trem 13 

1840 RA$=LEFT$ ( S$ , 1 1-LEN( E$ ( JB, 5 ) ) ) tPRINT# 4 , RA$ ; E? 

(JB,5);LF$:NEXT trem 183 

1850 IFJB=MyTHEN1860 trem 202 

I860 LB$=LEFT$(S$,58) tPRINT#4,LB$;"i9 Ti";LF$ 

trem 149 

1870 LB$=LBPT$(S$,42) tPRINT#4,LB$ ;L$(14) ;" 

{3 SPACES }$"; ,rem 163 

1880 LB$=LEPT$( S$ ,11-LEN( TX$) ) tPRINT#4 ,LB? ; TX? ; LF$ 

tLF? ,rem 123 
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1890 LB$sI,EFT$(S$,58) iPRINT«4,LB$;"g9 Tl";LF$ 

:rem 152 

1900 LB$»LEFT$(S$,33) {PRINT#4 ,LB$ ; "SURPLUS( +)/DEFI 
CIT(-){4 SPACES}?"; :rem 155 

1910 RA$=LEFT$(S$,11-LEN(SD$)) iPRINT#4,RA$;SD$;LF$ 

:rein 100 

1920 LB$=LEPr$(S$,58) jPRINT#4,LB$;"g9 T3";CR$iPRIN 

T»4 ,LB$ ; " DDDDDDDDD " ;LF$ trem 229 

1930 P0RSI^1T012 jPRINT#4,LF$ :NEXT:PR1NT#4 :Ci:iOSE4 tY 

P»0:GOTO410 :rein 158 

1940 P$'="AIXrUSTMBNTS " tOPENS ,8 ,8, "0 1 "+F$+" ,S, R"j INP 

UT«8,MB,AT$ iCL0SE8 trem 255 

1950 IFAT$=""THENAT$="0.00 trem 157 

I960 RETURN :rein 176 

1970 E=0jOPEN15,8,15tINPUT#15,E,E$ jrem 164 

1980 IFE>19THENPRIMT I PRINTER tSyS828 tFORD»lTO5000 :N 

EXT :rem 201 

1990 CLOSEl 5 {RETURN :rein 201 

2000 P0KEBO,14tPOKEBA,6iPOKE646,14 trem 251 

2010 PRINT"{CLR){6 DOWN } "tPRINTTAB ( 12) "REMOVE DATA 
DISK"tPRINT trem 253 

2020 PRINTTAB(18)"AND"tPRINTtPRINTTAB(10)"INSERT P 

ROGRAM DISK"tPRINT"{4 DOWN} trem 153 

2030 PRINTTAB(9)"PRESS ' C TO CONTINUE trem 251 
2040 GETA$tIFA$=""THEN2040 trem 175 

2050 IFA$<>"C"THEN2040 trem 177 

2060 POKE631,83tPOKE632,89tP0KE633,83 trem 101 

2070 PCaCE634,53 tPOKE635,49tPOKE636,48tPOKE637,48tP 

OKE638,48tPOKE639,13 trem 71 

2080 POKE198,9tNEW trem 36 



INVESTMENTS 

Remember to use the name above for the program you place on the PAM master disk. 

20 SOB53280 tBA»53281 >Na50 tMSX^l tMOX»>l tMrX^l tMAX»l 

trem 196 

30 Y<"0 1 AAb0 t TYs0 1 Llia0 tKKal3 t JD=0 1 TA=>0 1 TL=0 1 TI^0 iPL 

»0tPR»0tPN=0 »rem 44 

40 Cl<>0tC2a0tC3s>0tC4a0iLCa0tSP>4tE=>0 trem 8 

50 F$=" " tN$=" " tNl$»" " tN2§=" " tN3§=" " tN4$=" " t P$=" " tP 

P$«""tZ§="" »rem 226 

60 NN$=" -" t A$=" " t YR$»" " t B$=" " t PL$=" " t PR$=" " t TA$=" " 

tE$="" trem 51 

70 C4$=""tC5$=""tC6$=""tC7$=""iC8?="" trem 229 

80 Tl§=" " I T2$=" " t T3$=" " I T4$=" " t ^5$=" " t T6$=" " t T7§=" 

"tT8$»"" :rem 106 

90 Ul§=" " tU2§=" " t U3$-" " t U4$=" " tU5$=" " tU6$=" " 

trem 156 
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100 LF$=CHR$ (10) J CR$=CHR$ (13): SP$=CHR? (32): NC=80 : P 

C=0 :LB$="":RA$="" : rem 155 

110 S$=" " :FORSP=lTONC: S$=S$+SP$ :NEXT:1.A$=LEFT$( S$ , 

10) :LC$=LEFT$(S$,20) : rem 91 

120 DIMIV$(24),TX$(4),L$(30) :rem 184 

130 DIMIN$(50,15),SS§(50,15),BO$(50,11),IO$(10,11) 

:DIMU$(3) «rem 13 

140 IV$(1)="C0. NAME ( SYMBOL) ":IV$(2)="DATE PURCHA 

SED" :rem 33 

150 IV$(3)="N0. OF SHARES":IV$(4)="TYPE":IV$(5)="T 

OTAL COST" :rem 138 

160 IV$( 6) ""ANNUAL DIV/SHARE" : IV$ ( 7)="C0ST PER SHA 

RE" :rem 63 

170 IV$(8)="% YIELD" :IV$(9)="T0TAL DIVIDENDS ":IV$( 

10)="CURRENT DATE" :rem 152 

180 IV§(11)="CURRENT PRICE/SHARE" :rem 200 

190 IV$(12)="CURRENT GAIN/ LOSS PER SHARE ":IV$( 13)= 

"CURRENT % YIELD" :rem 144 

200 IV$(14)="T0TAL CURRENT C0ST":IV$(15)="T0TAL CU 

RRENT GAIN/LOSS" : rem 215 

210 IV$(16)="N0. OF BONDS ":IV$( 17)= "TOTAL COST" 

:rem 89 

220 I V$( 18)= "ANNUAL INTEREST/EACH":IV$(19)="C0ST E 

ACH BOND" :rem 165 

230 IV?(20)="% YIELD" :IV$( 21 )="TOTAL ANNUAL INTERS 

ST" :rem 11 

240 IV$(22)="MATURITY DATE" : IV$( 23) ="CURRENT VALUE 

" :rem 

250 IV§(24)="AMOUNT INVESTED" : TX$( 1 )="BONDS: " :TX$ ( 

2)="ST0CKS:" :rem 164 

260 TX$(3)="OTHER INVESTMENTS: ":TX$( 4) ="INVESTMBNT 

S" :rem 249 

270 POKEBO,3:POKEBA,3:POKE646,l :rem 105 

280 PRINT"{CLR}{3 DOWN} " :PRINTTAB ( 14) "INVESIMENTS " 

:FORD=1TO5000:NEXT :rem 221 

290 P0KEBO,14:P0KEBA,6:P0KE646,14 :rem 212 

300 PRINT"{CLR) {6 DOWN} " :PRINTTAB( 10) "REMOVE PROGR 

AM DISK": PRINT :rem 201 

310 PRINTTAB( 18) "AND" :PRINT:PRINTTAB( 12) "INSERT DA 

TA DISK":PRINT:PRINT"{4 DOWN}" :rem 86 

320 PRINTTAB(9)"PRESS 'C* TO CONTINUE" :rem 237 
330 GETA$:IFA$<>"C"THEN330 :rem 207 

340 POKEBO,12:POKEBA,12:POKB646,l :rem 199 

350 PRINT"{CLR} {2 DOWN} ":PRINTTAB( 14) "INVESTMENTS" 

:PRINT:PRINT :rem 164 

360 PRINT "LOADING PERSONAL DATA " t :FS="P ERSnATA" .n 

PEN8,8,8,"0:"+F$+",S,R" :rem 225 

370 INPUT#8,YR$,N$,N1$,N2$,N3$,N4$ :PRINT" ."; 

:rem 212 
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380 FORJ=1TO30:INPUT#8,L$( J) :NE)CTJ:PRINT" .";:CLOS 
E8 :rein 187 

390 GOSUB2480:IFB>19THEN290 :rein 106 

400 POKEBO,4:POKEBA,4:POKE646,l :reni 102 

410 PRmT"{CLRl{3 DOWN) ":PRINTTAB(14) "INVESTMENTS" 
:PRINTtPRINT:6OSUB2400 :rein 50 

420 OPEN15,8,15:INPUT#15,E,E$:C]LOSE15 trem 147 

430 P0KEB0,4:P0KEBA,4jP0KE646,1 :rein 105 

440 PRINT"{CLR} {3 DOWN) "»PRINTTAB( 14) "INVESTMENTS" 
:PRINTTAB(8)"{D0WN}1.{2 SPACES }BONDS " : rem 120 
450 PRINTTAB(8)"{DOWN}2.{2 SPACES }STOCKS " :PRINTTAB 
(8)" {DOWN)3.{2 SPACES}0THER":PRINTTAB(8)" 
(DOWN}4.{2 SPACES} DISPLAY" :rein 101 

460 PRINTTAB(8)" {DOWN}5.{2 SPACES}MAIN MENU":PRINT 
TAB(10)"{4 DOWN}PRESS DESIRED NUMBER" :rem 199 
470 GETA$ :IPA$=""THEN470 jrem 89 

480 IPA$<"1"ORA$>"5"THEN470 :rem 200 

490 AA=VAL(A$) :ONAAGOTO1550, 580, 1600, 2540, 4740 

:reni 

500 PRItITTAB(ll)"{3 D0WN)ENTER/CHANGE DATA"tPRINTT 
AB(11)"{2 D0WN}1.{2 SPACES)NEW ITEM" trem 191 

510 PRINTTAB(ll)"{DOWN)2.{2 SPACES} CHANGE ":PRINTTA 
B(ll)" (DOWN)3.{2 SPACES} DELETE" :rem 194 

520 PRINTTAB(11)"{D0WN}4.(2 SPACES }RETURN TO MENU" 

:reni 29 

530 PRINTTAB(10)"(4 DOWN}PRESS DESIRED NUMBER" 

trem 140 

540 GBTA$ : IFA$=" "THEN540 trem 85 

550 IPA$<"1"ORA$>"4"THEN540 trem 195 

560 Ai^VAL(A$) tONAAGOTO620, 910, 1360, 430 trem 156 
570 GOTO430 trem 108 

580 TY=!2 tPOKEBO ,3 tPOKEBA, 3 tPOKE646 ,1 tPRINT" { CLR} 

{3 DOWN} "tPRINTTAB( 17) "STOCKS" trem 6 

590 PRINT" {2 DOWN} LOOKING FOR YOUR "TX$(2)" .";tFO 

RJ=lTOMSX-l:FORK=lT015 trem 143 

600 IN$(J,K)=SS$(J,K) tNEXTKtPRINT" . " ; : NEXTJ t MAX»M 

SX trem 204 

610 PRINT"! CLR} {DOWN}STOCKS"tGOTO500 trem 235 

620 PRINT"{CLR} lDOWN}"tPRINT"TYPE 0.00 IF NO DATAt 

"tPRINTtFORJ=MAXTONtFORK=lTO10 trem 188 

630 IFK=3ANDTY=1THENPRINTIV$(16) ; fGOTO760 trem 83 
640 IFKa3ANDTY=3THBN830 trem 158 

650 IFKa4THENIN$( J,K)»STR$(TY) tGOTO830 trem 72 

660 IFKa7ANDTY<>3THEN6OSUB1740:GOTO830 trem 160 
670 IFK=7ANDTY=3THEN830 trem 165 

680 IFKa8ANDTY<>3THEHGOSUB1790t6OTO830 trem 168 
690 IFK=8ANDTY=<3THENIN$(J,7) = IN$(J,5) tGOSUB1790 tGO 

TO830 trem 83 

700 IFKs9ANDTY<>3THENGOSUB2110tGOTO830 trem 149 
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710 IFK=9ANDTY=3THEN830 srem 162 

720 IFK=5ANDTY=3THENPRINTIV?( 24) ; :GOTO760 : rem 86 
730 IPK=>5ANDTY<>2THENPRI1JTIV$(K+12) ; :GOTO760 

:rero 68 

740 IFK=10THEN830 : rem 221 

750 PRINTIV$(K); :rem 195 

760 INPUTIN$(J,K) :IFLEN(IN$(J,1) )>16THENIN$(J,1)=L 
EFT$(IN$(J,1)#16) :rem 80 

770 IFK=5THENPP$=IN$(J,5) :GOTO800 : rem 220 

780 IFK=6THENPP$=IN$( J,6) :GOTO800 : rem 223 

790 GOTO830 : rem 116 

800 GOSUB2510 :IFEF=1THEN760 : rem 110 

810 Z$=RIGHT$(PP$,3) :IFMID$(Z$,1 #!) = "• "THEN830 

:rem 51 

820 PRINT "ERROR — AMOUNT NOT IN X.XX FORM" : SYS828 :F 

ORD=1TO1000:NEXTD:GOTO760 : rem 244 

830 NEXTK:IN$(J,11)=IN$(J,5) :IFTY=2THENIN$(J,11)=I 

N$(J,7) :rem 37 

840 IFTY=2THENGOSUB2040 : rem 188 

850 MAX=MAX+1 :PRINT" {CLR} {7 DOVJN } " : PRINTTAB ( 10) "AN 

OTHER ITEM? (Y/N)" : rem 81 

860 GETA$ :IFA$=""THEN860 : rem 95 

870 IFA$="N"THENGOSUB1510:J=N:GOTO900 : rem 243 

880 IFA$<>"Y"THEN860 : rem 120 

890 PRINT" {CLR} {DOWN} ":PRINT "TYPE 0.00 IF NO DATA: 

": PRINT :rem 104 

900 NEXTJ:GOTO2540 trem 96 

910 PRINT"{CLR} {DOWN}":POKEBO,10:POKEBA,10:POKE646 

,1 :rem 117 

920 PRINTTAB( 17) "CHANGE"* PRINT :LL=0 :FORJ=lTOMAX-l 

trem 104 

930 PRINTTAB(10)JTAB(5)IN$(J,1) jLI^LI/fl jIFLI*=>15TH 
EN950 :rem 30 

940 NEXTJ:IFJs>MAXTHEN980 trem 106 

950 PRINTtPRINTTAB(9)" {4 DOWN}PRESS ' C TO CONTINU 
E" trem 1 

960 GETA? :IFA$<>"C"THEN960 trem 225 

970 PRINT" { CLR} { DOWN} " tPRINTTAB( 17 ) "CHANGE " tPRINT t 
LL=0tGOTO940 trem 108 

980 PRINT tB$>="" trem 79 

990 INPUT"ITEM NO. TO CHANGE" ;B$ :IFB$=" "THEN1330 

trem 

1000 JD»VAL(B$) tIFJD<=0ORJD>NAX-lTHEN990 trem 168 
1010 PRINT" {CLR} "t PRINT "CHANGE ITEM ";B$f PRINT 

trem 110 

1020 PRINT"PRESS RETURN IF NO CHANGEt " tPRINTt J=JD 

trem 35 

1030 FORK»lT011tIFK=3ANDTY=lTHENPRINTIV$(16); tGOTO 
1100 trem 130 

1040 IFKs3ANDTY»3THEN1280 trem 249 
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1050 
1060 
1070 

1080 

1090 
1100 
1110 
1120 

1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 

1260 

1270 
1280 

1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 



1370 

1380 
1390 

1400 
1410 

1420 



IFK=4THEN1280 : rem 11 

IFK=7ORK=8ORK=9THEN1150 :rem 206 

IFK=5ANDTY=3THENPRINTIV$( 24) ; :GOTO1100 

:rein 170 

IFK=>5ANDTy<>2THElSIPRINTIV$(K+12) j iGOTO1100 

trem 152 

PRI1JTIV$(K); :rem 241 

PRINTTAB(21)IN$(J,K); :rem 226 

INPUTIN?(J,K) :rein 32 

I ELEN ( IN? ( J , 1 ) ) > 16 THENIN? ( J , 1 ) = LEFT $ (IN$ ( J , 1 ) 
,16) trem 224 

IFK=5THENPP$=IN$( J,5) IGOTO1240 jrem 50 

IFK»6THEMPP$»IN$(J,6) :GOTO1240 trem 53 

IFK=7ANDTY<>3THENGOSUB1740 trem 189 

IFKB7AIiIDTY=3THEN1280 trem 

IFK=8ANDTy<>3THENGOSUB1790 trem 197 

IFK=8ANDTY=3THBN1280 trem 3 

IFK=9ANDTy<>3THENGOSUB2110 trem 187 

IPK=9ANDTY=3THBN1280 trem 253 

IFK=11A1!JDIN$( J,11)=""THEN1270 trem 110 

IFKsllTHENPP$»IN$(J,ll) t6OTO1240 trem 140 

GOTO1270 trem 201 

6OSUB2510tIFEE^lTHEN1110 trem 195 

Z$=RIGHT$(PP$,3) iIFMID$(Z$,l,l)=". "THEN1270 

trem 145 

PRINT "ERROR— AMOUNT NOT IN X.XX FORM" f SYS828 t 
FORD=lTO1000tNEXTDtGOTO1110 trem 73 

IFK='11ANDTY<>1THENGOSUB2040 trem 227 

NEXTK tPRINT " {CLR} (6 DOWN ) " t PRINTTAB (13) "ANOTH 
ER? (y/N)" trem 103 

GETA$tIFA$=""THEN1290 trem 187 

IFA$="Y"THEN910 trem 91 

IFA§<>"N"THEN1290 trem 192 

GOSUB1510 trem 13 

IFTY=1GOTO1590 trem 121 

IFTY=2GOTO610 trem 67 

IETY=3GOTO1640 trem 121 

PRINT" {CLR} {2 DOWN} " tP0KEB0,2 tP0KEBA,2 tPOKE64 
6,1 tPRINTTAB( 15)" DELETIONS "t PRINT I LL-0 

trem 158 

F0RJ=1T0MAX-1 iPRINTTAB(10)JTAB(5)IN$(J,l) tLL= 
LL+ltIFLL=>15THEN1390 trem 60 

NEXTJtIFJ=>MAXTHEN1420 trem 191 

PRINTtPRINTTAB(9)" {4 DOWN}PRESS ' C TO CX3NTIN 
UE" trem 48 

GETA$ tIFA$<>"C"THEN1400 trem 45 

PRINT" t CLR} { DOVnSi} " jPRINTTAB( 17 ) "DELETE " tPRINT 
tLL=0 tGOTO1380 trem 206 

PRINT fPRINT"PRESS 'C TO CONTINUE OR ANY KEY 
{ SPACE }T0 EXIT" trem 212 
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1430 GETA$:IPA$=""THEN1430 :rem 179 

1440 IFA$<>"C"THEN500 :rein 130 

1450 PRINT J rem 87 

1460 INPUT"ITEM NO. TO DELETE" ; B$ :IFB§=" "THEN1460 

trem 58 

1470 JD=VAL(B$) :IFJD<»0ORTD>MAX-1THEN1460 trem 220 
1480 PRINT" {CIiR}":PRINT "DELETING ITffll ";B$iFORD=lT 

01000 : NEXT : JJ=JD+1 tFORJ=JJTOMAX-l trem 32 

1490 F0RK=1T015:IN$( J-1,K)=IN$( J,K) :NEXTK,J :MAX=MA 

X-1 :GOSUB1510:GOTO1330 :reml24 
1500 PRINT"{CLR} {3 DOWN )":PRINT" PRESS RETURN IF NO 
DATA"tPRINTiRETURN trem 252 

1510 GOSUB1830tPRINTtPRINT"{DOWN}l'M SAVING. .";tl 

FTY=1THEN2260 trem 239 

1520 IFTY=2THEN2230 trem 105 

1530 IFTy=3THEN2290 trem 113 

1540 RETURN trem 170 

1550 TY=liPC»CEBO,9iPOKEBA,9tPOKE646,l trem 252 

1560 PRINT"{CLR}{3 DOVIN} "tPRINTTAB (17 ) "BONDS" tPRIN 

TtPRINT trem 2 

1570 PRINT"LOOKING FOR YOUR "TX$(1)" . " ; tFORJ=lTOM 

OX-1 tF0RK=lT011 trem 147 

1580 IN$( J,K)=B0$( J,K) tNEXTKfPRINT" . " ; t NEXTJ tMAX= 

MOX trem 235 

1590 PRINT" {CLR}{DOV«N}BONDS"tGOTO500 trem 194 

1600 TY=3 :P0KEB0,8:P0KEBA,8tP0KE646,l trem 248 

1610 PRINT"{CLR} {3 DOWN} " tPRINTTAB ( 11) "OTHER INVES 

TMENTS"tPRINTtPRINT trem 100 

1620 PRINT "LOOKING FOR YOUR "TX$(3)" . " ; tFORJ=lTOM 

TX-1 tF0RK=lT011 trem 150 

1630 IN$( J,K)=IO$( J,K) tNEXTKtPRINT" . " ; tNEXTJ tMAX= 

MTX trem 243 

1640 PRINT" {CLR} { DOWN }OTHER INVESTMENTS "tGOTOS 00 

trem 42 

1650 TA=0 1 TL=0 1 TRF0 t P$=P1$ tGOSUB1710 1 TL=PL-1 1 TR=PR 

+ltP$=P2$tGOSUB1710 trem 181 

1660 TD=TI/fPLtTI^TR+PRtTA=TIH-TRf IFTA=0THENP3$="0 .0 

0"t RETURN trem 24 

1670 IFTA<0THENP3$=STR$(TA-.001) trem 96 

1680 IFTA>0THENP3$=STR$(TA+.001) trem 97 

1690 P3$=LEFT$(P3$ ,LEN(P3$) -1) t IFLEFT$(P3$ , 1)=CHR$ 

(32)THENP3$=MID$(P3$,2) trem 36 

1700 RETURN trem 168 

1710 PL$=LEFT$(P$,LEN(P$)-3) tPL=VAL(PL$) trem 17 
1720 PR$=RIGHT§(P$,3) tPR=VAL(PR$) tIFPL<0THENPR=PR* 

-1 trem 175 

1730 RETURN trem 171 

1740 C1=VAL(IN$( J,5) ) tC2=VAL( IN§ ( J,3 ) ) fC3=Cl/C2+.0 

05iC4$»STR$(C3) tGOSUB1760 trem 174 

1750 IN$( J,7)=C6$ tRETURN trem 122 



256 



CHAPTER 
FOURTEEN 



i I 



1760 LC=0 :C5$ = ". ":LC=LEN(C4$) :F0RLI>=1T0LC :rein 113 
1770 IEMID$(C4§,LD,1)=C5$THENLE=LD:LD=LC :rem 93 
1780 NEXTLD>C6$=LEFT$(C4$,LE+2) :RETURN :rem 34 

1790 IPIN$( J,6) = "0.00"THENC6$="0":GOTO1820 :reni 18 
1800 C3=VAL(IN$(J,7)) :C4=VAL( IN$( J , 6) ) »C2=(C4/C3)* 

100+.005:C4$=STR$(C2) :rem 58 

1810 GOSUB1760 :rem 24 

1820 IN$( J,8)=C6$:RETUPN :rein 121 

1830 PRINT"{CLR}{2 DOWN} COMPUTING . " ; :P1§="0 .00" »F 

0RJ=1T0MAX-1:P2$=IN?( J,9) :rem 39 

1840 IFTY=3THENP2$=IN$(J,6) :rein 67 

1850 IFP2$=""THEN1870 trem 131 

1860 GOSUB1650:P1$=P3$ :rem 222 

1870 PRINT" . "; :NEXTJ:IFTY=1THENT7$=P3$:GOTO1900 

:rem 176 

1880 IETY=3THENU2$=P3$ SGOTO1900 : rem 120 

1890 T4$=P3$ :rem 98 

1900 P1$="0.00":PORJ=1TOMAX-1:P2$=IN$(J,5) iIFP2$=" 
"THEN1920 :rein 45 

1910 GOSUB1650:P1$=P3$ trem 218 

1920 PRINT" . "; :NEXTJ:IFTY=1THENT6$=P3$:GOTO1960 

trem 177 

1930 IFTY=3THENU1$=P3$ :GOTO1960 trem 121 

1940 T1$=P3$ f Pl$=" 0.00": F0RJ=1T0MAX-1 tP2 $=IN? ( J , 1 4 

) t6OSUB1650tPl$=P3$ trem 134 

1950 PRINT" . "; tNEXTJ tT2$=P3$ :P1$=T2$ tP2$=NN?+Tl$ t 

GOSUB1650tT3$=P3$tPRINT" ."; trem 206 

I960 IFTY=1THENC3=VAL(T6$) tC4=VAL(T7$) tGOTO1990 

trem 85 

1970 IFTY=3THENC3=VAL(U1$) :C4=VAL(U2$) tGOTO1990 

trem 80 

1980 C3=VAL(T1$) tC4=VAL(T4$) trem 48 

1990 IFC3=0THENC6$="0":GOTO2010 trem 248 

2000 C2«(C4/C3)*1004-.005tC4$»STR$(C2) tGOSUB1760 

trem 7 

2010 IFTY=lTHENT8$»C6$f RETURN trem 64 

2020 IFTY=3THENU3$=C6$tRETURN trem 63 

2030 T5$=:C6$t RETURN trem 102 

2040 IFIN§( J,6)="0.00"THENC6$="0":GOTO2070 trem 5 
2050 C3=VAL(IN$(J,11)) tC4=VAL( IN$( J,6) ) tC2=(C4/C3) 
*100-l-.005tC4$»STR$(C2) trem 99 

2060 GOSUB1760 t IFTY»3THENIN$( J ,8 )-C6$ tRETURN 

trem 217 

2070 IN$(J,13)=C6$tPl$aiN$(J,ll) tP2$aNN$-l-IN$(J,7) t 
GOSUB1650:IN$( J,12)=P3$ trem 211 

2080 C1«VAL(IN$(J,11)) tC2=VAL<IN$(J,3)) tC3=Cl*C2+. 
005tC4$=STR$(C3) tGOSUB1760 trem 212 

2090 IN$(J,14)»C6$tPl$»'IN$(J,14) tP2$=NN$+IN$( J , 5) t 
GOSUB1650iIN$( J,15)sP3$ trem 218 

2100 RETURN trem 163 
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2110 IFIN$( J,6)="0.00"THENC6$="0.00"iGOTO2130 

:rein 142 

2120 C1=VAL(IN$(J,6)) :C2=VAL( IN$( J , 3 ) ) :C3=Cl*C2+.0 
05:C4$=STR$(C3) :GOSUB1760 :rem 163 

2130 IN$(J,9)=C6$:RETUnN trem 117 

2140 U$(1)=T1$ :U$(2)=T6$:U$( 3)=U1$ :P1§="0.00":FORU 
=1T03 :rem 191 

2150 P2$=U$(U) :IFP2$=""THEN2170 :rein 179 

2160 GOSUB1650 :P1$=P3$ :rein 216 

2170 NEXTU :U4$=P3§ :U$ ( 1)=T4$ :U$ ( 2)=T7$ jU$ ( 3)»U2$ jP 
l$="0.00"jFORlf=lTO3 jrem 96 

2180 P2$=U$(U) :IFP2$=""THEN2200 trem 176 

2190 GOSUB1650:P1$=P3$ :rem 219 

2200 NEXTU: U5$=P3$:C3=VAL(U4$) :IFC3=0THEN2220 

:rein 147 

2210 C4=VAL(U5$) :C2=(C4/C3)*100+ .005 iC4$=STR$ (C2) t 

GOSUB1760iU6$=C6$ :reni 157 

2220 RETURN trem 166 

2230 K)RJE=1T0MAX-1 :F0RK=1T015 :SS$ ( JE,K)=IN$ ( JE.K) 

:NEXTK:PRINT" .";iNEXTJE :rem 95 

2240 I^X=MAX trem 227 

2250 GOTO2320 trem 201 

2260 P0RJE=1T0MAX-1 :P0RK=1T011 :B0$( JE,K)=IN$( JE,K) 

fNEXTK: PRINT" ."; trem 65 

2270 NEXTJE:MOX=MAX trem 234 

2280 GOTO2320 trem 204 

2290 F0RJE=1T0MAX-1 :F0RK=1T011 tlO? ( JE,K)=IN$( JE,K) 

tNEXTKtPRINT" ."; :rem 75 

2300 NEXTJE^^f^X=MAX trem 233 

2310 GOTO2320 trem 198 

2320 F$="SECURITIES"tOPEN15,8,15iPRINT#15, "S0t"+F$ 

tCL0SE15 trem 162 

2330 OPEN8,8,8, "0t"+F$+",S,W":PRINT#8,T6$", "Tl$", " 

U1$","U4$CHR$(13) trem 220 

2340 PRINT#8,MSX", "MOX", "MTXC3JR$(13) trem 88 

2350 PRINT#8,T2$", "T3$", "T4$", "T5$", "T7$", "T8$CHR$ 

(13) trem 209 

2360 PRINT#8,U2$","U3$","U5$","U6$CHR$(13) :F0RJB=1 

TOMSX-1 tF0RK=lT015 trem 144 

2370 PRINT#8,SS$(JB,K)", "tNEXTRtNEX-KTBtPRINT" .";f 

FORJB=lTOMOX-ltFORK=lT011 trem 154 

2380 PRINT#8,B0$(JB,K)", "fNEXTKtNEXTJBtPRINT" .";t 

F0RJB=1T0MTX-1:P0RK=1T011 trem 139 

2390 PRINT#8,IO$(JB,K)", "tNEXTK:NEXTJB:PRINT" ."ji 

CLOSES: RETURN trem 161 

2400 F$="SEajRITIES":PRINT: PRINT "LOADING "F$" .";t 

OPEN8,8,8, "0:"+F$+",S,R" trem 223 

2 41 INPUT#8 , T6$ , Tl$ , Ul § , U4$ t INPUT#8 , MSX , MOK , MTX 

:rem 158 

2420 INPUT#8,T2$,T3$,T4$,T5$,T7$,T8$ trem 200 
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2430 INPUT#8,U2$,U3$,U5$,U6$:FORJB=lTOMSX-l:rem 44 
2440 FORK=lT015:INPUT#8,SS$(JB,K) rNESCTKiPRINT" ."; 

:rem 26 

2450 NEXTJB:POKrB=lTOMOX-l :F0RK=1T011 : INPUT#8 ,B0$ ( 
JB.K) :NEXTK:PRINT" .";:NEXTJB :rem28 
2460 F0RJB=lT0MTX-l:F0RK=lT011tINPUT#8,I0$(JB,K) :N 
EXTKtPRINT" ."7:NEXTJB :rem 36 

2470 CLOSES: RETURN : rem 149 

2480 E=0:OPEN15,8,15:INPUT#15,E,E$ :rem 161 

2490 IFE>19THENPRINT:PRINTE$ : SYS828 iFORD=lTO5000 :N 
EXT :rem 198 

2500 CL0SE15: RETURN :rein 189 

2510 EF=0 :L1=LEN( PP$ ) :F0RL=1T0L1 :TT$=MID$ ( PP$ ,L,1 ) 
:AB=ASC(TT$) :IFAB=46THENNEXT :rem 29 

2520 IFAB<480RAB>57THENIj=U :EF=1 :PRINT: PRINT "ERROR 
IN INPUT ":SYS828 :rem 23 

2530 NEXT: RETURN :reni 35 

2 540 POKEBO , 2 : POKEBA , 2 : P0KE646 , 1 : PRINT " { CLR } 

{3 DOWN }"jPRINTTAB( 16) "DISPLAY" :rem 26 

2550 PRINTTAB(8)"{D0WN}1 .{2 SPACES} INDIVIDUAL BOND 
S":PRINTTAB(8)" {DOWN}2.{2 SPACES } INDIVI DUAL S 
TOCKS" :rem 104 

2560 PRINTTAB(8)" {D0WN}3.1 2 SPACES }OTHER INVESTMEN 
TS":PRINTTAB(8)"{D0WN}4.{2 SPACES } INCOME SUMM 
ART" :rem 25 

2570 PRINTTAB(8)"lDOWN}5 .{2 SPACES}GAIN/L0SS SUMMA 
RY":PRINTTAB(8)" {DOWN}6.{2 SP ACES } RE TURN TO M 
ENU" :rein 200 

2580 PRINTTAB(10)" {4 DpUN}PRESS DESIRED NUMBER" 

:rem 195 

2590 GETA$:IFA$=""THEN2590 :rem 195 

2600 IFA§<"1"ORA$>"6"THEN2590 :rem 42 

2610 A;^VAL(A$) tONAA6OTO3110, 2630, 3200, 3290, 4290, 4 
30 :rein 24 

2620 GOTO430 :rem 154 

2630 TY=2:LL=0:PRINT"{CLR}{3 DOWN} ":PRINTTAB(8) "DI 
SPLAY INDIVIDUAL STOCKS " tPRINT:MAXsMSX: rem 84 
2640 F0RJ=1T0MSX-1:F0RK=1T015:IN$( J,K)=SS$( J,K) :NE 
XTK :rem 43 

r— I 2650 PRINTTAB(10) JTAB(5)SS$( J,l) :LL=LL+1:IFLL=>KKT 

I i HEN2670 :rem 191 

2660 NEXTJ :IFJ=>MSXTHEN2700 :rem 213 

2670 PRINTTAB(9)"{4 DOWN}PRESS ' C TO CONTINUE" 

t rem 107 

2680 GETA$:IFA$<>"C"THEN2680 :rem 67 

2690 PRINT"{CLR}l3 DOWN }" :PRINTTAB (8) "DISPLAY INDI 
VIDUAL STOCK" :PRINT:LL=0:GOTO2660 :rem 157 
2700 GOSUB2710:GOTO2540 :rem 81 

2710 PRINT :PRINTTAB( 10) "PRESS DESIRED NUMBER" :B$=" 
":INPUTB$ :IPB$=""THENRETURN :rem 81 
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2720 JD=VAL(B$) :IFJD<=0THEN2710 irem 41 

2730 IFry=2THENPN=650+JD :rein 213 

2740 IFTY=3THENPN-700+JD irem 211 

2750 PRINT" {CLR}":LC=LEN(TX$(TY) ) iIFTY=lTHENPN=600 

+JD trem 115 

2760 P0KEB0,3 :P0KEBA,3 :POKE646,l :PRINTN$TAB ( 35} PN: 

PRINT" {UP}"; :rem 221 

2770 PRINTLEFT§(TX$(TY),LC-1)TAB(39-LEN(SS$(1,10) ) 

)SS$(1,10) :PRINT:PRINT : rem 21 

2780 J=JD:C1=11JIFTY=2THENC1=15 :rein 94 

2790 F0RK=1T0C1JIPK=3ANDTY=1THENPRINT1V$(16); :GOTO 

2880 trem 178 

2800 IFK=3ANDTY=3THEN2890 trem 6 

2810 IFK=4THEN2890 trem 24 

2820 IFK=5ANDTYs3THENPRZNTIV$(24); t6OTO2880 

trem 190 

2830 IFK=>5ANDTY»lTHENPRINTIV$(K-fl2) ; t6OTO2880 

trem 110 

2840 IFK=7ANDTY»3THEN2890 trem 14 

2850 IFK=9ANDTY=3THEN2890 trem 17 

2860 IFK=>6ANDTY=3THENPRINTIV§(K+12) ; tGOTO2880 

trem 116 

2870 PRINTIV$(K); trem 248 

2880 PRINTTAB(39-LEN(IN$(J,K)))IN$(J,K) trem 234 
2890 NEXTKtPRINT"{2 D0WN}HARD COPY (Y/N) ?"trem 74 
2900 GETA$tIFA$=""THEN2900 trem 185 

2910 IFA$="N"THENRETURN trem 158 

2920 IFA$<>"Y"THEN2900 trem 210 

2930 0PEN4,4,ltLB$=LEPT$(SS,41-LEN(N$)) iPRINT#4,LC 
$;N$;LB§;PN;LF§ trem 242 

2940 LB$=LEFT$(TX$(TY),LC-1) iPRINT#4 ,LC$ ;LB$ ; 

trem 106 

2950 LB$=LEFT$(S$,45-LEN(LB$)-LEN( "DATEt{3 SPACES} 
"+SS$(1,10))) trem 119 

2960 PRINT#4,LB$;"DATEt{3 SPACES} ";SS$(1 ,10) ;LF$;L 
F$ :F0RK=1T0C1 tIFIN$( J,K) = ""THEN3070 trem 97 

2970 IFK=3ANDTY=1THENPRINT#4,LC$;IV$(16); tGOTO3080 

trem 43 

2980 IFK=3ANDTY-3THEN3070 trem 6 

2990 IFK=4THEN3070 trem 24 

3000 IFK=5ANDTY=3THENPRINT#4,LC$;IV$(24); tGOTO3090 

trem 32 

3010 IFK=>5ANDTY=1THENPRINT#4,LC$;IV$(K+12); :G0T03 
100 trem 200 

3020 IFK=7ANDTY=3THEN3070 trem 252 

3030 IFK=9ANDTY»3THEN3070 trem 255 

3040 IFK=>6ANDTY=3THENPRINT#4 , LC$ ; IV§( K+1 2) ; tG0T03 
100 trem 206 

3050 PRINT#4,LC§;IV${K); tRA§=LEFT$( S$ ,45-LEN(IV§(K 
))-LEN(IN$(J,K))) trem 32 
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3060 PRINT#4,RA$;IN$(J,K) ;LF$ :reni 137 

3070 NEXTK :F0RSP-1T01 2 :PRINT#4 ,LF$ :NEXT: PRINT# 4 :CL 

0SE4: RETURN trem 33 

3080 RA$=LEPT$ ( S$ ,45-LEN( IV$ ( 16 ) ) -LEN( IN$ ( J,K) ) ) jG 

OTO3060 trem 169 

3090 RA$=LEFT$(S$,45-LEN(IV$(24))-LEN(IN$(J,K) )) :G 

OTO3060 srera 169 

3100 RA$=LEFT$(S$,45-LEN(IV$(K+12))-LEN(IN$(J,K) ) ) 

:6OTO3060 :rein 20 

3110 TY=1:LL=0:PRINT"{CLR}{3 DOWN } " : PRINTTAB (8) "DI 

SPLAY INDIVIDUAL BONDS "tPRINT:MAX=MaXt rem 232 
3120 PRINT"ITEM NO. "TAB ( 10) "MATURES"TAB ( 19) IV§ ( 1) : 

PRINT srem 29 

3130 FORJ=1TOMOX-1:FORK=1T011 jrem 58 

3140 IN$(J,K)=BO$(J,K) :NEXTK:PRINTTAB(3)JTAB(10)BO 

$( J,10)TAB(19)BO$( J,l) :L=LL+1 :rem 37 

3150 IPLI;=>KKTHEN3170 :rem 251 

3160 NEXTJ:IFJ=>MOXTHEN2700 :rem 205 

3170 PRINTTAB(9)"{4 DOWN} PRESS ' C TO CONTINUE" 

trem 103 

3180 GETA$:IFA$<>"C"THEN3180 trem 59 

3190 PRINT"{CLR} {3 DOWN }" tPRINTTAB (8) " DISPLAY INDI 

VIDUAL ITEM"tPRINTfLL=0tGOTO3160 trem 64 

3200 TY=3tLL=0tPRINT"{CLR}{3 DOWN }" tPRINTTAB (8) "DI 

SPLAY OTHER SECURITIES " tPRINTtMAX=MTX trem 18 
3210 PRINT"ITEM NO. "TAB(10)"MATURES"TAB{19) IV$( 1) i 

PRINT trem 29 

3220 P0RJ=lT0MTX-ltF0RK=lT011 trem 63 

3230 IN$(J,K)-IO$(J,K) t NEXTK tPRINTTAB ( 3)JTAB(10)IO 

$( J,10)TAB(19) I0?( J,l) fL=LL+l trem 58 

3240 IFLI/=>KKTHEN3260 trem 251 

3250 NEXTJfIFJ=>MTXTHEN2700 trem 210 

3260 PRINTTAB(9)"{4 DOWN}PRESS ' C* TO CONTINUE" 

trem 103 

3270 GETA$tIFA$<>"C"THEN3270 trem 59 

3280 PRINT"{CLR}{3 DOWN } "tPRINTTAB (8) "DISPLAY OTHE 

R INVESTMENTS" tPRINTtLL=0 tGOTO3250 trem 10 
3290 P0KEB0,5 tP0KEBA,5 iPOKE646,l iGOSUB3740tIFBO$( 1 

,1)=""THEN3360 trem 3 

3300 PRINT f PRINTTX$( 1) tPRINTtLI*=LL+4 tFORJ=lTOM0X-l 

tPRINTLEFT$(B0${J,l),8) ; trem 186 

3310 PRINTTAB(13-LEN(B0$(J,3) ) )B0$ ( J,3 ); tPRINTTAB ( 

22-LEN(B0$(J,7)) )B0$(J,7); trem 39 

3320 PRINTTAB(32-LEN(BO$(J,6) ))B0$(J,6) ; trem 222 
3330 PRINTTAB(39-LEN(BO$(J,8)) )B0$(J,8)tLIi=LlH-l 

trem 178 

3340 IFLL=>KKTHENGOSUB3720 trem 125 

3350 NEXTJ trem 84 

3360 IFSS$(1,1)=""THEN3430 trem 126 

3370 PRINTtLL=LL+ltIFLL=>KKTHENGOSUB3720 trem 74 
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3380 PRIIJTTX${2) :PRINT :Ll>=LI/f 2 :IPLIr=>KKTHENGOSUB37 

20 :rem 102 

3390 F0RJ=1T0MSX-1:PRINTLEFT$(SS$(J,1),8); jPRINTTA 

B(13-LEN(SS$(J,3)))SS$(J,3) ; : rem 162 

3400 PRINTTAB(22-LEN(SS$(J,7) ))SS$(J,7) ; jPRIlJTTAB( 

32-LEN(SS$( J,6) ) )SS$( J,6) ; : rem 130 

3410 PRINTTAB(39-IiEN(SS$(J,8) ))SS${J,8) :LI/=L]>1 :IF 

LL=>KKTHENGOSUB3720 : rem 200 

3420 NEXTJ I rem 82 

3430 IFIO$(1,1)=""THEN3510 : rem 109 

3440 PRINT:LI^LL+1:IFLL=>KKTHENGOSUB3720 trem 72 
3450 PRINTTX$(3) :PRINT: LL=LL+2 :IFLL=>KKTHENGOSUB37 

20 :rem 101 

3460 P0RJ=1T0MTX-1:PRINTLEFT?(I0$(J,1),8) ; rPRINTTA 

B(22-LEN(IO${J,5)))IO$(J,5) ; s rem 123 

3470 PRINTTAB(32-LEN(IO$( J,6) ) )IO$( J,6) ; :rem 242 
3480 PRINTTAB(39-LEN( I0$( J , 8) ) ) IO$( J , 8) :L1>LW-1 

:rem 198 

3490 IFLL=>KKTHENGOSUB3720 :rem 131 

3500 NEXTJ :rem 81 

3510 PRINT:L]>LI>1:IFLL=>KKTHENGOSUB3720 srem 70 
3520 PRIOT"SUMMARy :":PRINT:IiL=LL+2:IELIi=>KKTHENG0S 

UB3720 :rem 187 

3530 PRINTTAB(1)L$( 17)" BONDS "; :PRINTTAB ( 22 -LEN( T6 

$})T6$; trem 22 

3540 PRINTTAB(32-LEN(T7$) )T7$; jrem 220 

3550 P RINTTAB ( 39-LEN( T8 $ ) ) T8$ j LI>=LI/fl : I PLIr=> KKTHEN 

GOSUB3720 trem 155 

3560 PRINTTAB(1)L$(17)" STKS" ; :PRINTTAB( 22-LEN( Tl$ 

))T1$; :rem 222 

3570 PRINTTAB(32-LEN(T4$))T4$; :rem 217 

3580 PRINTTAB(39-LEN(T5$) )T5$ :LL=LL+1 :IFLL=>KKTHEN 

GOSUB3720 :rem 152 

3590 PRINTTAB(1)L$(17)" OTHER"; :PRINTTAB(22-LEN(U1 

$))U1$; :rem 32 

3600 PRINTTAB(32-I,EN(U2$) )U2$; :rem 209 

3610 PRINTTAB(39-LEN(U3$))U3$:LI;=LL+1 :rem 163 

3620 PRINTTAB(13)"i9 T3"TAB ( 23) " g9 Tr'TAB(33)" 

%6 T§":LL=LL+1 ,rem 22 

3630 IFLIy=>KKTHENGOSUB3720 trem 127 

3640 GOSUB2140tPRINTTAB(l)L?(17) tPRINTTAB (1)TX$ ( 4) 

'• trem 13 

3650 PRINTTAB(22-LEN(U4$) )U4$7 tPRINTTAB ( 32-LEN( U5$ 

))U5$; ,rem 33 

3660 PRINTTAB(39-LEN(U6§) )U6$ tLI,=LL+2 tIFLIi=>KKTHEN 

GOSUB3720 ,rem 156 

3670 PRINT" {DOWN }HARD COPY (Y/N) ?" trem 114 

3680 GETA$tIFA$=""THEN3680 trem 197 

3690 IFA$="N"THEN2540 srem 143 

3700 IPA$<>"Y"THEN3680 ,rem 213 
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3710 GOTO3800 :rem 207 

3720 PRINT:PRINTTAB(9)"PRESS ' C TO CONTINUE" 

:rem 235 

^ 3730 GETA$:IFA$<>"C"THEN3730 :rem 61 

; I 3740 Lli=0:PRINT"{CLR}":PRINTN$TAB(36)"140" : rem 20 

3750 PRINTTX$(4)TAB{39-LEN(SS$(1,10)))SS$(1,10) :PR 
INT :rem 27 

J 3760 PRINTTAB( 7) "INVESTMENTS INCXJME SUMMARY" 

_ . j I rem 73 

3770 PRINTTAB(7)"i26 T3" :rem 143 

3780 PRINT "COMPANY"TAB ( 10 ) "QTY"TAB (17) "COST "TAB ( 27 
)"DIV"TAB(33)"%YIELD" :rem 184 

3790 P0RL=lTO39iPRINT"iT|" ; :NEXT: PRINT: RETURN 

:rein 198 

3800 0PEN4,4,1 :LB$=LEFT$(S$,57-LEN(N$)) :PRINT#4,LA 
$;N?;LB$;"140";LF$ :rein 47 

3810 PRINT#4,LA$;" investments! 3 5 SPACES } DATE: " ; 

:rem 255 

3820 LB$=LEFT$(S$,3) :PRINT#4,LB$;SS$(1 ,10) ;LF$ ;LF$ 

:rem 36 

3830 LB$=LEFT$( S$, 27) :PRINT#4,LB$; "INVESTMENTS INC 
OME SUMMARY" ;LF$ :rem 30 

3840 PRINT#4,LB$;"E20 Tl";LF$ : rem 189 

3850 PRINT#4,LA$ ; "company! 13 SPACES }QTY{ 8 SPACES }C 
0ST{9 SPACES}DIV"; : rem 124 

3860 LB$=LEFT$( S$ ,7) :PRiNT#4,LB$ ;"%YIELD" ;LF$ 

:rem 66 

3870 PRINT#4,LA$; :F0RL=1T045 :PRINT#4 , "gT§" ; :NEXT:P 
RINT#4,LF$;LF$ :rem 139 

3880 IFBO$(1,1)=""THEN3950 :rem 119 

3890 PRINT#4,LA$;TX$(1) ;LF$ ;LF$ :F0RJ=1T0M0X-1 :PRIN 
T#4,LA$;BO$( J,l) ; :rem 240 

3900 RA$=LEFT$ ( S$ , 2 3-LEN(B0$ ( J , 1 ) ) -LEN(B0$( J , 3 ) ) ) : 
PRINT#4,RA§;BO$(J,3) ; :rem 164 

3910 RA$=LEFT$(S$,13-LEN(BO$(J,7))) :PRINT#4 , RA$; BO 

${J.7) ; :rem 162 

3920 RA?=LEFT$(S$,12-LEN(BO$(J,6))) :PRINT#4 , RA$ ; BO 
$( J,6) ; :rem 160 

3930 RA$=LEFT$(S$,12-LEN(BO${J,8))) :PRINT#4 , RA$ ; BO 
, — , $(J,8) ;LF$:NEX'IVr :rem30 

i i 3940 PRINT#4,LF$;LF$ :rem 135 

3950 IPSS$(1,1)=""THEN4020 :rem 127 

3960 PRINT#4,LA$;TX$(2);LF$;LF$:PORJ=1TOMSX-1:PRIN 
fn T#4,LA$;SS$(J,1); :rem 8 

'- I 3970 RA$=LEFT$(S$,23-LEN(SS$(J,1))-LEN(SS$(J,3))) : 

PRINT#4,RA$fSS$( J,3) ; :rem 234 

^ 3980 RA$=LEFT$(S$,13-LEN(SS$(J,7))) :PRINT#4,RA$;SS 

$(J,7) ; :rem 211 

3990 RA$=LEFT$(S$,12-LEN(SS§(J,6))) :PRINT#4 ,RA$ ; SS 
$( Jf6) ; :rem 209 
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4000 RA$=LEFT$(S$,12-I.EN{SS$(J,8))) sPRINT#4 ,RA$ ; SS 

${ J,8) ;LF$ :NEXTJ :rein61 
4010 PRINT#4,LF$;LF$ :rem 124 

4020 IFIO$(l,l)a""THEN4080 :rem 108 

4030 PRI1IT#4 , LA? ; TX$( 3) ;LF$ ;LF$ :F0RJ=1T0MTX-1 iPRIN 

T#4,LA$;I0$(J,1) ; : rem 241 

4040 RA$=LEFT$ ( S$ , 36-LEN( IO$ ( J , 1 ) ) -LEN( 10$ ( J , 5 ) ) ) : 

PRIlJT#4,RA$f I0$( J,5) ; :reml89 
4050 RA$=LEFT$(S$,12-LEN(IO$(J,6) )) :PRINT#4 ,RA$f 10 

$( J,6) ; :rem 169 

4060 RA$»LEFT$(S$,12-LEN(IO$(J,8))) :PRINT#4 ,RA$ ; 10 

$( J,8) ;LF$ :NEX1\7 : rem 39 

4070 PRINT#4,LF$;LF$ trem 130 

4080 PRINT#4 ,LA$ ; "SUMMARY : " ;LF$ ;LF$ :LB$=LEFT$ ( S$ , 1 

7) trem 42 

4090 PRIOT#4,LB$jL$(17) ;" BONDS"; :rem 35 

4100 LB$=LEFT$( S$ , 18-LEN( T6$ ) ) tPRINT#4 ,LB$ ; T6$ ; 

:rem 139 

4110 LB$=LEFT$(S$,12-LEN(T7$)) :PRINT#4 ,LB$ ; T7$ ; 

:rem 136 

4120 LB$=LEFT$(S$,12-IiEN(T8$)) :PRINT#4,LB$;T8$ ;LF$ 

:rem 65 

4130 LB$=LEFT$(S$,17) iPRINT#4,LB$;L${17) STOCKS" 
; :rem 83 

4140 LB$=LEFT$(S$,17-LEN(T1$)) iPRINT#4 ,LB$ ; Tl$ ; 

:rem 132 

4150 LB$=LEPT$( S$ , 12-LEN( T4$ ) ) tPRINT#4 ,LB$ ; T4$ ; 

:rem 134 

4160 LB$=LEFT$(S$,12-LEN(T5$)) :PRINT#4 ,LB$? T5$ ;LF$ 

:rem 63 

4170 LB$=LEFT$(S$,17) jPRINT#4,LB$;L$(17) OTHER"; 

:rem 2 

4180 LB$=LEFT$(S$,18-LEN(U1$)) :PRINT#4 ,LB$ ; U1$ ; 

:rem 139 

4190 LB$«LEFT$(S$,12-LEN(U2$)) tPRINT*4 ,LB$ ; U2$ ; 

trem 136 

4200 LB$»LEFT$(S$«12-LEN(U3$)) tPRINT#4 ,LB$ ; U3$ ;LF$ 

:rem 56 

4210 LB$=LEFT?(S$,37) tPRINT#4,LB$;"g7 T3{3 SPACES} 
B7 TH5 SPACES }g5 Ti" ;LF$ trem 232 

4220 LB$=LEPT$(S$,17) tPRINT#4,LB$;L${17) ;" ";TX$(4 
) ; trem 12 

4230 LB$-LEFT$(S$,12-LEN(U4$)) tPRINT#4 ,LB$ ; U4$ ; 

trem 135 

4240 LB$=IiEFT$(S$,12-LEN(U5$)) tPRINT#4 ,LB$ ; U5$ ; 

trem 138 

4250 LB$=LEFT$(S$,12-LBN(U6$)) :PRINT#4,LB$;U6$ ;LF$ 

trem 67 

4260 LB$=LEFT${S$,37) :PRINT#4,LB$;"g7 Tl{3 SPACES} 
B7 tH5 SPACES}i5 Tl";CR$ trem 240 
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4270 PRINT#4 ,LB$ ; " DDDDDDD { 3 SPACES } DDDDDDD 

{ 5 SPACES } DDDDD " ;LF$ :F0RSP=1T012 :PRINT#4 ,LF$ : 
NEXT :rem 60 

4280 PRINT#4:CLOSE4:GOTO2540 :rem 212 

4290 POKEBO,5:POKEBA,5:POKE646,l :GOSUB4680 :reni 47 
4300 PORJ=1TOMSX-1 :PRIilTSS$ ( J,3 ) TAB (5) LEPr$ ( SS$ ( J, 
1),8); trem 72 

4310 PRINTTAB(21-LEN(SS$( J,5) ) )SS$( J,5) ; :PRINTTAB( 
30-LEN{SS?(J,14) ))SS$(J,14) J : rem 218 

4320 PRINTTAB(39-LEN(SS$(J,15) ))SS$(J,15) :LL=LL+ls 
IFLI.=>KKTHEN4340 :rem 164 

4330 11EXTJ:IFJ=>MSXTHEN4370 :rem 214 

4340 PRINTiPRINTTAB(9)"PRESS ' C TO CONTINUE" 

:rem 234 

4350 GETA$:IFA$<>"C"THEN4350 irera 59 

4360 GOSUB4680 :IFJ<MSXTHEN4330 :rem 95 

4370 PRINTTAB(13)"g8 T|"TAB ( 22) " g8 Tl"TAB(31)" 

g8 T§":LL=LL+1 : rem 22 

4380 IFLL=>KKTHEN4340 :rem 1 

4390 PRINTTAB(5)L${17)" $" :PRINT " {UP} "TAB ( 21-LEN( T 

1$))T1$; :rem 92 

4400 PRINTTAB(30-I.EN(T2$) )T2$; : rem 204 

4410 PRINTTAB(39-LEN(T3$))T3$:PRINT"{DOWN}HARD COP 

Y (Y/N) ?" :rem 121 

4420 GETA$iIFA$=""THEN4420 :rera 183 

4430 IFA$="N"THEN2540 : rem 136 

4440 IFA$<>"Y"THEN4420 :rem 208 

4450 0PEN4,4,1 :LB$=LEFT$ ( S$ ,58-LEN( N$ ) ) :PRINT#4,LA 

$;N$;LB$;"30";LF$ :rem 

4460 PRINT#4,LA$;"STOCKS{40 SPACES } DATE: "; :rem 120 
4470 LB$=LEFT$(S$,3) :PRINT#4,LB$;SS$(1 ,10) ;LF$ ;LF$ 

:rem 38 

4480 LB$=LEFT$( S$, 27) :PRINT#4,LB$; "GAIN/LOSS SUMMA 

RY (STOCKS)" ;LF$ :rem 188 

4490 PRINT#4,LB$;"619 Tl";LF$ : rem 28 

4500 PRINT#4,LA$;"SH{4 SPACES )COMPANY{ 16 SPACES }C0 

ST (8 SPACES} PRICE"; :rem 162 

4510 LB$=I.EFT$(S$,8) :PRINT#4,LB$;"G/L";LF$ :rem 98 
4520 PRINT#4,IiA$; :F0RL=1T045 :PRINT#4, "gTl"; :NEXT:P 

RINT#4 ,LF$ ;LF$ :F0RJ=1T0MSX-1 : rem 86 

4530 LB$=LEFT$(S$,13-LEN(SS$(J,3) )) :PRINT#4,LB$;SS 

${J,3) ; I rem 185 

4540 LB$=LEFT$(S$,3) :PRINT#4,LB$;SS$(J,1) ;irem 102 
4550 LB$=LEFT$( S$ ,29-LEN(SS$( J , 1 ) )-LEN( SS$( J ,5) ) ) : 

PRINT#4,LB$fSS${ J,5) ; :rem 229 

4560 LB?=LEFT$(S$,13-LEN(SS$(J,14) )) :PRINT#4 ,LB§; S 

S$(J,14); :rem 32 

4570 LB$=LEFT$(S$,12-LEN{SS$(J,15))) :PRINT#4 ,LB$ ; S 

S$(J,15) ;LF$ :rem 216 

4580 NEXTJ:IFJ=MSXTHEN4590 :rem 163 
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4590 LB$=LEFT$(S$,34) :PRINT#4,LB$;"68 Tl{3 SPACES} 
B8 Tie 3 SPACES} 17 Tl";LF$ :rem 124 

4600 LB$=LEFT$(SS,17) :PRINT#4,LB$;L$(17) ;" $" ; 

:rein 162 

4610 LB$=LEFT$(S$,21-LEN(T1$)) :PRINT#4 ,LB$ ; Tl$ ; 

:rein 129 

4620 LB$=LEFT$(S$,13-LEN(T2$)) :PRINT#4 ,LB$ ; T2$ ; 

:rem 133 

4630 LB$=LEFT$(S$,12-LEN(T3$)) :PRINT#4 ,LB$ ; T3$ ;LF$ 

:rein 61 

4640 LB$=LEPr$(S$,34) iPRINT#4,LB$;"g8 T3{3 SPACES} 
gS TH3 SPACES}g7 Tl";CR$ irem 123 

4650 PRINT#4 ,LB$ ; " DD DDDDDD { 3 SPACES } D DDDDDDD 

{3 SPACES } DDDDDDD " ;LF$ :rem 157 

4660 F0RSP=1T012 :PRINT#4,LF? : NEXT :rem 71 

4670 PRINT#4:CLOSE4:GOTO2540 :reni 215 

4680 LL=€»iPRIlJT"{CLR} ":PRINTN$TAB(37)"30" trem 231 
4690 PRINT"STOCKS"TAB(39-LEN(SS$(1,10)))SS$(1,10) : 
PRINT :rem 229 

4700 PRINTTAB( 6) "GAIN/LOSS SUMMARY (STOCKS)" 

:rein 223 

4710 PRINTTAB(6)"g26 T§" :rem 137 

4720 PRINT "SH "TAB( 5 ) "COMPANY"TAB( 17 ) "COST "TAB( 25 ) " 
PRICE "TAB ( 35 )"G/L" :rem 218 

4730 P0RL=1T039 :PRINT"iTl" ; iNEXT: PRINT: RETURN 

:reni 193 

4740 POKEBO,14:POKEBA,6:POKE646,14 :rein 8 

4750 PRINT"{CLR} {6 DOWN} "iPRINTTAB ( 12) "REMOVE DATA 
DISK":PRINT srem 10 

4760 PRINTTAB( 18) "AND":PRINT:PR1NTTAB( 10) "INSERT P 

ROGRAM DISK": PRINT :rein 64 

4770 PRINT" {4 DOWN}" :reni 231 

4780 PRINTTAB(9)"PRESS ' C TO CONTINUE" :rem 43 
4790 GETA$ :IFA$=""THEN4790 :rein 203 

4800 IFA$<>"C"THEN4790 jrem 196 

4810 POKE631,83:POKE632,89:POKE633,83 :rem 106 

4820 POKE634 , 53 :POKE635 ,49 :POKE636 ,48 :POKE637 ,48 :P 

OKE638,48:POKE639,13 :rem 76 

4830 P0KE198,9:MEW :rein 41 



PROPERTY 

Remember to use the name above for the program you place on the PAM master disk. 

20 DIML$(30),M$(12) :N=>100:MP»l:MR=liML=l:MA=l:MI=l 
:MH=1 :rem 133 

30 RE=0:AP=0:AU=0:PI=0:HG=0iBOs53280:BA=53281 :DIMP 
R$(N,6) :rein 52 

40 NN$ =" -" : AT$ =" " : SM$ =" " : RM$ =" " : TM$ =" " : UM$ =" " : WM$ = 
" :rein 165 
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50 N$="":N1$="":N2$="":N3$="":N4$="":LL$=" : rem 43 
' ^ 60 RE§=""»AP$=""jAU$="":PI$="":HG$=" :rem 75 

70 LF$=CHR$(10) :CRS=CHR$(13) :SP$=CHR$ ( 32) :NC=80:PC 
=0 :reni 146 

J ! 80 S$="":F0RSP=1T0NC:S$=S$+SP$:NEXT:LA$=LEFT$(S$,1 

0) :LB$="":RA$=" :rem 31 

90 M$ ( 1) = " JANUAKT" :M?( 2) = "FEBRUARy" : M$ ( 3)="MARCH": 
r~! M§(4) = "APRIL :rem 40 

'_' 100 M?(5)="MAY"tM$(6)="JUNE":M$(7)="JULY":M$(8)="A 

UGUST :rem 57 

110 M$(9)="SEPTEMBER":M$(10)="OCTOBER :rem 127 

120 M$ ( 1 1 ) = "NOVEMBER " j M$ ( 1 2 ) = "DECEMBER " : Q 1$ = "REAL 

{ SPACE lESTATE :rem 214 

130 Q2$= "HOUSEHOLD GOODS " :Q3$= "APPLIANCES " :Q4$="AU 
TOMD BILES :reni 172 

140 Q5$="PERSONAL ITEMS " :R$( 1 )="LIVING R00M":R$(2) 
=" DINING ROOM :rem 231 

150 R$(3)="KITCHEN":R$(4)="BATHROOM ( S) " : R$( 5) ="MA 
STER BEDROOM :rem 54 

160 R$(6)="BEDR00M NO. 2":R$( 7)="BEDR00M NO. 3":R$ 
(8)="ATTIC :rem 230 

170 R$( 9)="CELLAR/GARAGE/SHED":POKEBO,2 iP0KEBA,2 :P 
OKE646,l iPRINT"{CLR}{3 DOWN} :rem 172 

180 PRINTTAB ( 16 ) "PROPERTY" :FORD=1TO5000 : NEXT 

:rem 50 

190 P0KEB0,14:P0KEBA,6:P0KE646,14 :rein 211 

200 PRINT"{CLR}{6 DOWN } ":PRINTTAB ( 10) "REMOVE PROGR 

AM DISK"tPRINT :rera 200 

210 PRINTTAB (18) "AND": PRINT: PRINTTAB (12) "INSERT DA 

TA DISK":PRINT:PRINT"{4 DOWN} :rem 51 

220 PRINTTAB (9) "PRESS 'C TO CONTINUE :rem 202 

230 GETA$8lFA$<>"C"THEN230 :rem 205 

240 POKEBO,12:POKEBA,12:POKE646,l:PRINT"{CLR} 

{ 2 DOWN} " :PRINTTAB( 16 ) "PROPERTY" : PRINT :PRINT 

:rem 51 

250 PRINT "LOADING PERSONAL DATA " ; : F$="PERSDATA 
r~} :reni 118 

260 OPEN8,8,8,"0:"+F$+",S,R":INPUT#8,YR$,N§,N1$,N2 
$,N3$,N4§ :PRINT" ."; : rem 25 

/— , 270 FORJ=1TO30:INPUT#8,L?{ J) :NEXT:PRINT" .";:CLOSE 

/ I 8:GOSUB2990:IFE>19THEN190 :rem 124 

280 POKEBO,14:POKEBA,14:POKE646,1:RE=0:AP=0:AU=0:P 
I=0:HG=0 :MP=1:PR$=" :rem 155 

290 PRINT"{CLR}{2 DOWN} "xPRINTTAB{16)"PR0PERTY" :PR 
'- INTTAB(9)" {D0\«N}1.{2 SPACES }REAL ESTATE 

:rem 228 

300 PRINTTAB(9)"{DOWN}2 .{2 SPACES }HOUSEHOLD GOODS" 
j i :PRINTTAB(9)"{DOV«N}3.{2 SPACES} APPLIANCES 

:rem 249 
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310 PRINTTAB(9)"{DOVfN}4.{2 SPACES } AUTOMOBILES " :PRI ; | 

NTTABO)" {DOWN)5.{2 SPACES } PERSONAL ITTSHS ! — ! 

irem 33 

320 PRINTTAB(9)"{DOWN}6 .{2 SPACES) VALUE ALL PROPER ^ 

TY":PRINTTAB(9)" {D0WN}7.{ 2 SPACES }MAIN MENU j i 

:rein 49 

330 PRINTTAB(10)"{3 DOWN} PRESS DESIRED NUMBER 

:rein 87 i j 

340 GETA$:IFA$=""THEN340 :reni 81 LJ 

350 IFA$<"1"ORA$>"7"THEN340 :rem 194 

360 Ai^VAL(A$) :ONAAGOTO710, 2420, 2550, 2600, 2640, 305 

0,3440 :rein 222 

370 PRINT"lCLR}{3 DOWN) " :PRINTTAB( 12) "ENTER /CHANGE 
DATA":PRINTTAB(11)" {D0WN}1.{ 2 SPACES }ADD NEW 

{SPACE} ITEM :rem 249 

380 PRINTTAB(ll)" {DOWN}2.{ 2 SPACES }CORRECT IONS": PR 

INTTAB(11)"{D0WN}3 .{2 SPACES}DELETE :rem 74 
390 PRINTTAB(ll)" {D0\«N}4.{ 2 SPACES }DISPLAY" :PRINTT 

AB(ll)"{DOWN}5.{2 SPACES }RETURN TO MENU:rem 31 
400 PRINTTAB(10)" {4 DOWN}PRESS DESIRED NUMBER 

:rem 102 

410 GETA$:IFA$=""THEN410 : rem 77 

420 IFA$<"1"ORA$>"5"THEN410 : rem 188 

430 AA=VAL(A$) :ONAAGOTO440,450,460,640,280 :rem 48 
440 GOSUB750:GOTO470 :rem 194 

450 GOSUB1030 :GOTO470 : rem 235 

460 GOSUB1280:GOTO470 :rem 243 

470 IFRE=1THEN730 :rem 248 

480 IFHG=1THEN2 520 :rem 32 

490 IFAP=1THEN2580 jrem 41 

500 IFAU=1THEN2620 :rem 33 

510 IFPI=1THEN2660 :rem 41 

520 GOTO370 :rem 106 

530 POKEB0,13 :P0KEBA,13 :POKE646*0 :PRINT"{CLR} 
{3 DOWN }":PRINTTAB( 11) "ROOM LOCATOR CHART 

:rem 208 

540 PRINTTAB(10)"{DOWN}1 .{2 SPACES}LIVING ROOM":PR \ i 

INTTAB(10)"2.{2 SPACES} DINING ROOM : rem 49 

550 PRINTTAB(10)"3 .{2 SPACES }KITCHEN" :PRINTTAB( 1 0) 

"4. {2 SPACES }BATHROOM (S) : rem 47 
560 PRINTTAB(10)"5 .{2 SPACES } MASTER BEDROOM" : PRINT I \ 

TAB (10) "6. {2 SPACES }BEDROOM NO. 2 :rem 7 

570 PRINTTAB(10)"7 .{2 SPACES } BEDROOM NO. 3":PRINTT 

AB(10)"8.{2 SPACES }ATTIC :rem 174 1 ( 

580 PRINTTAB(10)"9.{2 SPACES }CELLAR/GARAGE /SHED ' — ' 

:rem 24 

590 PRINTTAB(10)"{4 DOWN}PRESS ' C TO CONTINUE ^ ■ 

:rem 64 [i 
600 GETA$:IFA$=""THEN600 :rem 79 

610 IFA$<>"C"THEN600 :rem 81 

I I 
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620 PRINT"{CLRl{2 DOWN) "jIFHG=lTHEN2480 :rem 225 
630 QOTO820 :rem 108 

640 POKEBO ,13: POKEBA ,13: POKE646 , : PRINT " { CLR } 

{3 D0WN}":PRINTTAB(16)"DISPLAY : rem 42 

650 PRINTTAB(9)"{D0WN}1 .{2 SPACES} INDIVIDUAL ITEM" 

:PRINTTAB(9)" {DOWN}2.{2 SPACES )SUMMAR2f LISTING 

:rem 88 

660 PRINTTAB(9)"{DOWN}3.{2 SPACES} VALUE HOUSE/GOOD 
S":PRINTTAB(9)" {DOWN}4.{2 SPACES}VALUE ALL PRO 
PERTY :rem 132 

670 PRINTTAB(9)" {DOWN}5.{2 SPACES}RETURN TO MENU": 
PRINTTAB(10)"{4 DOWN} PRESS DESIRED NUMBER 

:rem 7 

680 GETB$:IFB$=""THEN680 :rem 97 

690 IPB$<"1"ORB§>"5"THEN680 :rein 208 

700 BB=VAL(B$) :ONBBGOTO1630, 1490, 1830, 3050, 280 :GOT 

0370 :rem 9 

710 POKEBO , 5 : POKEBA , 5 :P0KE646 , 1 :PRINT" { CLR } " : PRINT 

"REAL ESTATE":PRINT :rem 198 

720 RE=1 :PN=2000:NB$=Q1$ :F$="REAL ESTATE " :GOSUB293 

0:GOTO370 :rein 234 

730 F$="REAL ESTATE" :GOSUB2890:IFE>19THEN370 

:rem 123 

740 RB=0:GOTO640 :rem 172 

750 POKEBO, 9 :POKEBA, 9 :P0KE646 , 1 tPRINT " {CLR }": PRINT 

"PROPERTY" :PRINT:GOSUB1010 :rem 233 

760 PORJ=MPTON:H=J:IFHG=1THENH=100*RO+J:H$=STR$(H) 

:H$=MID$(H$,2) :reni 130 

770 IFJsMTHEN1020 :rein 244 

780 PRINT"ITEM NO. " ;Hi J$=STR§( J) : J$=MID$( J$ , 2) :PRI 

NT :rein 81 

790 K=ltIFRE>=lTHENPR$(J,K)=J$ :GOTO850 :rem 233 

800 IFHG=1THENPR$( J,K) = RO$+NN$+H$:GOTO850 :reni 191 
810 PRINT "TO SEE ROOM LOCATOR . CHART PRESS '0' 

:reni 150 

820 INPUT "ROOM NO. " ; R0$ :IFVAL(RO$) <0ORVAL( R0$ ) >9TH 
EN820 :rein 126 

830 IFRO$="0"THBN530 :rein 103 

840 PR$( J,l)sRO$+NN$+J$ :rem 224 

850 K=2: PRINT "ENTER DATE (MONTH 2 DIGITS, DAY 2 

:rein 188 

860 PRINT "DIGITS , YEAR 2 DIGITS). {2 SPACES } SAMPLE: 

:rein 183 

870 PRINT" 032484 FOR MARCH 24, 1984" :PRINT: INPUT "D 
ATE BOUGHT" ;PR§( J, K) :K==3 :rem35 

880 INPUT "DESCRIPTIVE NAME: " ;PR$( J,K) :reni 36 

890 IFLEN(PR$(J,K) )>17THENPR?( J,K)=LEFT$(PR?{J,K), 
17) :rein 46 

900 K=4:INPUT"M0DEL NO. : " ;PR$ ( J,K) :K=5 :INPUT"SERIA 
L N0.:"7PR§(J,K) :K=6 :rem 193 
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910 INPUT"COST: ";PR${ J,K) :P$=PR$( J,K) : rem 183 

920 6OSUB3020:IFEE^1THEN910 trem 107 

930 Z§=RIGHT$(P$,3) :IFMID$(Z$ ,1 ,1)=" . "THEN950 

:rem 233 

940 PRINT "ERROR — AMOUNT NOT IN X.XX FORM " t SYS828 : F 
ORD=1TO1000:NEXT:GOTO910 trem 176 

950 MP=MP+1 tPRINT" { CLR} {6 DOVJN) " jPRINTTAB( 10 ) "ANOT 
HER ITEM? (Y/N) I rem 141 

960 GETA$:IFA$=""THEN960 J rem 97 

970 IFA$="N"THENJ=N:GOTO1000 :rem 155 

980 IFA$<>"Y"THEN960 :rem 122 

990 GOSUB1010 :rem 228 

1000 NEXT :GOSUB2770tPQ$=P3$.:GOSUB2790 {RETURN 

:rem 19 

1010 PRINT" {CLR}PROPERTY"iPRINT:RETURN :rem 140 
1020 PRINT:PRINT"FILE IS FULL": SYS828 :FORD=1TO1000 
:NEXT:GOTO280 srem 226 

1030 PRINT"{CLR}":POKEBO,9:POKEBA,9 :POKE646,l 

trem 62 

1040 PRINT"PROPERTY" jPRINT:PRINTTAB( 15 ) "CORRECTION 
S":PRINT :rem 141 

1050 LL=0 8K=14:PRINT:PRINT"ITBM NO. {2 SPACES}BOUGH 
T{2 SPACESlDESCRIPTION":PRINT:FORJ=lTOMP-l 

:rem 9 

1060 PRIOTPR$(J,1)TAB(10)PR$(J,2)TAB(18)PR$(J,3) :L 
L=LL+1:IFLL=>KTHEN1080 : rem 205 

1070 NE}CT:IFJ=>MPTHBN1120 trem 37 

1080 PRINT:PRINTTAB(9)"PRESS 'C TO CONTINUE 

trem 198 

1090 GETA$:IFA$<>"C"THEN1090 trem 55 

1100 LL=0tPRINT"{CLR}":PRINTTAB(15)" {DOWN }CORRECTI 

ONS"tPRINT trem 33 

1110 PRINT"IT]^ NO. {2 SPACES)BOUGHT(2 SPACES}DESCR 

IPT ION": PRINT :GOTO10 70 :rem 157 

1120 PRINT:INPUT"ITa4 NO. TO CORRECT" ;A$ trem 174 
1130 IFA$=" "THEN1130 trem 46 

1140 PRINT" {CLR} "tPRINT"CORRECT ITEM " ; A$ tPRINTtFO 

RJJ=1T0MP-1 :rem 158 

1150 IFPR$( JJ,1)=A$THENA=JJ:JJ=MP-1 :NEXT:G0T01 170 

:rem 2 52 

1160 NEXT:GOTO280 :rem 20 

1170 PRINT"PRESS RETURN IF NO CHANGE: ": PRINT t PRINT 

:JJ=A :rem 237 

1180 PRINT "ITEM NO. : " ; tPRINTTAB ( 10) PR? ( JJ,1 ) ; tINPU 

TPR$(JJ,1) trem 111 

1190 PRINT "BOUGHTt " ; tPRINTTAB ( 10) PR? ( JJ ,2 ) ; tINPUTP 

R?(JJ.2) srem 65 

1200 PRINT "DESCRIPTIONt "; tPRINTTAB (10) PR? (JJ, 3) ; tl 

NPUTPR?(JJ,3) trem 182 
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Pi 1210 PRINT"MODEL NO. : "; :PRINTTAB(10)PR$( JJ,4) ; :INP 

' ' UTPR$(JJ,4) :reni 177 

1220 PRINT"SERIAL NO. : " ; :PRINTTAB (10) PR? ( JJ ,5 ) ; :IN 
, — , PUTPR$(JJ,5) :rein 3 

) i 1230 PRINT"AMOUNT: "; !PRINTTAB(10)PR$(JJ,6) ; :INPUTP 

R$(JJ,6) :P$=PR$(JJ,6) : rem 71 

1240 GOSUB3020:IFEE^1THEN1230 :rem 195 

I — [ 1250 Z$=RIGHT$(P$,3) :IFMID$(Z$,1,1)=". "THEN1270 

' ' rrem 65 

1260 PRINT "ERROR— AMOUNT NOT IN X.XX FORM": SYS828 i 
FORD=lTO1000iNEXT:GOTO1230 :rein 8 

1270 GOSUB2790 :GOSUB2770:PQ$=P3$: RETURN :rem 163 
1280 PRINT"Cc[jR)"iP0KEB0,2 :P0KEBA,2 :P0KE646,1 

trem 55 

1290 PRINT" PROPERTY" :PRINT:PRINTTAB{ 16) "DELETIONS" 

tPRINT trem 241 

1300 LL=<I :K=14 :PRINT" { CLR} " iPRINTTAB{ 16 ) "DELETIONS 

": PRINT :rein 150 

1310 PRINT "ITEM NO. {2 SPACES } BOUGHT{ 2 SPACES }DESCR 

IPTI0N":PRINT:F0RJ=1T0MP-1 :reni 219 

1320 PRINTPR$(J,1)TAB(10)PR$(J,2)TAB(18)PR$(J,3):L 

L=LL+1:IFLL=>KTHEN1340 :rein 203 

1330 NEXT:IFJ=>MPTHEN1380 :rem 44 

1340 PRINT :PRINTTAB( 9) "PRESS 'C TO CONTINUE 

:rem 197 

1350 GETA$:IFA$<>"C"THEN1350 :rem 53 

1360 LL=0:PRINT"{CLR}"tPRINTTAB(16)" { DOWN }DELETION 
S":PRINT trem 134 

1370 PRINT"ITEM NO. {2 SPACES }B0UGHT{ 2 SPACES}DESCR 
IPTION":PRINT:GOTO1330 :rem 164 

1380 PRINT: PRINT "PRESS ' C TO CONTINUE OR ANY KEY 

{ SPACE }T0 EXIT :rem 183 

1390 GETA$ :IFA$=""THEN1390 :rem 189 

1400 IFA$<>"C"THEN280 :rem 131 

1410 PRINT: INPUT "ITEM NO. TO DELETE";A$ :rem 81 
, — , 1420 IFA$=""THEN1420 : rem 50 

i 1 1430 PRINT" {CLR}":PRINT"DELETE ITEM ";A$:PRINT 

:rem 128 

1440 FORJJ=1TOMP-1:IFPR$(JJ,1)=A$THENGOSUB1460 
,f*~! :rem 61 

J 1450 NEXT:GOSUB2790:GOSUB2770:PQ$=P3$:RETURN 

:rem 28 

^ 1460 PR$(JJ,2)=" ":PR§(JJ,3)=" EMPTY 

I ; :rem 163 

1470 PR$(JJ,4)=" ":PR$(JJ,5)=" 

:rem 219 

ri 1480 PR$(JJ,6)="0 .00":RETURN : rem 51 

1490 PRINT" {CLR} ":KK=14:GOSUB2350 :rem 40 

1500 IFMP=<1THENPRINT"N0 ITEMS " :F0RD=1T01 000 : NEXT: 
SYS828:GOTO280 :rem 83 
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1510 F0RJ=1T0MP-1 :PRINTPR$(J,1) ; iPRINTTAB( 6)PR$( J , 
2) f :PRINTTAB(13)PR$(J,3) ; : rem 49 

1520 PRmTTAB(39-LEN(PR$(J,6) ))PR${J»6) :LIi=LI/H:IF 
LL=KKTHEN1540 :rem 252 

1530 NEXT:IFJ=>MPTHEN1570 :reni 47 

1540 PRINT :PRINTTAB( 9) "PRESS ' C TO CONTINUE 

:rem 199 

1550 GETA$ :1FA$<>"C"THEN1550 :rem 57 

1560 GOSUB2350:GOTO1530 :reni 82 

1570 PRINTTAB(30)"i9 T3" iPRINTTAB ( 29) " $" ; iPRINTTAB 

((39-LEN(PQ$) ))PQ$ trem 116 

1580 PRINT: PRINT "HARD COPY? (Y/N) :reni 4 

1590 GETA$:IPA$=""THEN1590 :rem 193 

1600 IFA$="Y"THEN2200 : rem 136 

1610 IFA$<>"N"THEN1590 :rem 198 

1620 GOTO280 :rero 156 

1630 PRINT"{CLR}{2 DOWN} " :PRINT "TYPE 'ALL' IF YOU 

{ SPACE }WISH TO SEE ALL ITEMS. : rem 114 

1640 PRINT : INPUT "ENTER ITEM NO.";A$ :rem 126 

1650 IFA$=""THEN1650 :rem 60 

1660 IFA§="ALL"THE»JJ=1 :GOTO1710 irem 136 

1670 F0RJJ=1T0MP-1:IFPR$( JJ,1)=A$THENA=JJ:JJ=MP-1 : 

NEXT:GOTO1690 trem 203 

1680 NEXT:GOTO280 :rem 27 

1690 JJ=A trem 226 

1700 IFJJ=MPTHEN1780 trem 196 

1710 GOSUB2400:IFMP=<1THENPRINT"NO ITEMS " :F0RD=1 TO 

1000:NEXT:SYS828:GOTO280 trem 214 

1720 PRINT"ITEM N0.t{5 SPACES) " ;PR$(JJ , 1) tPRINT"BO 

UGHT:{7 SPACES}";PR$( JJ,2) trem 100 

1730 PRINT "DESCRIPTION! {2 SPACES } " ; PR$( JJ , 3) tPRINT 

"MODEL N0.t{4 SPACES) " ;PR$ (JJ ,4) trem 38 

1740 PRINT "SERIAL NO . t { 3 SPACES ) " ; PR$ ( JJ , 5 ) tPRINT " 

C0STf{9 SPACES}";PR$( JJ,6) trem 111 

1750 PRINTtPRINT:PRINTiPRINTTAB(9)"PRESS 'C TO CO 

NTINUE trem 88 

1760 GETB$:IFB$<>"C"THEN1760 trem 65 

1770 IFA$="ALL"THENJJ=JJ+ltGOTO1700 trem 72 

1780 PRINT t PRINT "HARD COPY? (Y/N) trem 6 

1790 GETB$tIFB$=""THEN1790 trem 199 

1800 IFB$="Y"THEN2080 trem 145 

1810 IFB$<>"N"THEN1790 trem 203 

1820 GOTO280 trem 158 

1830 POKEBO,12tPOKEBA,12tPOKE646,l trem 252 

1840 P RINI' " { CLR ) " : PRINTN? TAB ( 3 7 ) " 2 4 " t PRINT " PROP ERT 

Y"f PRINT trem 253 

1850 PRINTTAB(11)"VALUE HOUSE/GOODS " :PRINTTAB( 11 ) " 

gl7 T§"fPRINT trem 4 

1860 GOSUB1940 trem 29 
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fl 1870 FORZ=lT09iPRIlJTR$(Z)TAB(39-LEN(H$(Z)))H$(Z)tN 

EXT:PRINTTAB(30)"i9 T3 :rem 10 

1880 PRINTTAB(5)"T0TAL H0USE/G00DS{4 SPACES} $"; :PR 
I — I INTTAB ( 39-LEN( HG$ ) ) HG$ : rem 47 

! i 1890 PRINT :PRINT"HARD COPY? (Y/N) :rem 8 

1900 GETA$ :IFA$=""THEN1900 :reni 183 

1910 IFA$="Y"THEN1980 trem 154 

r~[ 1920 IFA$<>"N"THEN1900 :rem 197 

1930 GOTO280 srem 160 

1940 OPEN15,8,15:P3$="0.00":FORZ=1TO9:Z$=STR$(Z ) iZ 
$=MID$(Z$,2) :rem 30 

1950 F$="HSEHLD GOODS "+Z$ :0PEN8 ,8,8 , "0: "+F$+" , S , R" 
:INPUT#8,MH,H$(Z) trem 7 

1960 IFH$(Z)=""THENH$(Z)»"0.00 : rem 90 

1970 P1$=:P3$ :P2$=H$(Z) :GOSUB2680 tCL0SE8 : NEXT: CLOSE 
15:HG$'=P3$:RETURN , :reml22 

1980 0PEKr4,4,l:LB$sLEFT$(S$,58-LEH(N$)) :PR1NT#4,LA 
$;N$;LB$;"24";LF$ :rem 8 

1990 PRINT#4,LA$ ; "PROPERTY" ;LF$;LF$ :rem 122 

2000 LB$=LEFT$(S$ ,24) :PRI1IT#4,LB$;" VALUE OF HOUSEH 
OLD GOODS BY BOOM" ;LF$ trem 215 

2010 PRINT#4,LB$;"g24 Ti" ;LF$ ;LF$ tF0RZ=lT09 

trem 243 

2020 PRINT#4 , LA$ ; R$ (Z ) ; t RA$=LEFT$( S$ , 60-LEN( R$ (Z ) ) 
-LEN(H$(Z))) trem 229 

2030 PRINT#4,RA$;H$(Z) ;LF$ tNEXTtLB$=LEFT$( S$ ,57) tP 
RINT#4,LB$;"il0 T|";LP$ trem 234 

2040 LB$=LEFT$(S$,25) tPRINT#4,LB$;*'T0TAL HOUSEHOLD 
G00DS{5 SPACES }$"; trem 228 

2050 RA$=LEFT$(S$,18-LEN(HG$)) fPRINT#4 ,RA$;HG$;LF? 

trem 87 

2060 LB$=LEFT$(S$,57) tPRINT#4,LB$;"il0 T§";CR$iPRI 
NT#4 ,LB$ ; " DDDDDDDDDD trem 52 

2070 F0RSP=1T012 tPRINT#4,LF$ :NEXTtPRINT#4 tCL0SE4 tG 
OTO280 trem 79 

J — I 2080 OPEl!l4,4,ltLB$=LEFT$(S$,55-LEN(N$)) tPRINT#4,LA 

' * $;N$;LB$;PN;LF$ trem 241 

2090 PRINT#4,LA$;NB$;LF$;LF$tLB?=LEFT$(S$,36) tPRlN 
T#4,LB? ;" PROPERTY" ;LF$ trem 35 

I -! 2100 PRINT#4,LB$;"g6 Tl" ;LF§ tIFA$="ALL"THENJJ=l 

trem 128 

2110 IFJJ=MPTHEN2190 trem 188 

2120 PRI1JT#4,LA$;"ITEM N0.t{5 SPACES }" ;PR$ ( JJ,1 ) ;L 
i ) F$ trem 109 

2130 PRIlJT#4,LA$;"BOUGHTt{7 SPACES} " ;PR$ ( JJ,2 ) ;LF$ 

trem 62 

n 2140 PRINT#4,LA$;"DESCRIPTIONt{2 SPACES} " ;PR$(JJ , 3 

' ' );LF$ trem 187 

2150 PRINT#4,LA$; "MODEL N0.t{4 SPACES}" ;PR${JJ, 4) ; 
m-rn LF$ trem 181 

1 
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2160 PRINT#4,IiA$; "SERIAL NO.:{3 SPACES} " ;PR$(JJ , 5 ) 
;LF$ :rem 6 

2170 PRINT#4,LA$;"COST:{9 SPACES}" ;PR$(JJ ,6) ;LF$;L 
F$;LF$ trem 152 

2180 IFA$="ALL"THE1JJJ=JJ+1 :GOTO2110 :rem 64 

2190 PRmT#4,LF$,LF$ !PRINT#4 :CL0SE4 :GOTO280 

:rein 131 

2200 OPEN4,4,l:LB$=LEFT$(S$,55-LEN(N$)) :PRINT#4,LA 
$;N$;LB$7PN;LF$ :rein 235 

2210 PRINT#4,LA$;NB$;LF$;LF$ :rem 87 

2220 LB$=LEFT$(S$,28) :PRINT#4,LB$;"PROPERTY SUMMAR 
Y LISTING" ;LF$ :rem 155 

2230 PRINT#4,LB$;"gl8 T3";LF$ :rem 111 

2240 PRINT#4,LA$;"ITEM#{2 SPACES } BOUGHT{ 2 SPACES}D 
ESCRIPTION"; srem 162 

2250 LB$=LEFT§(S$,29) :PRINT#4 ,LB$ ; "VALUE" ;LF$ 

:rem 79 

2260 PRI1JT#4,LA$ ; :F0RL=1T045 :PRINT#4, "gTi" i :NEXT:P 
RINT#4,LF$;LF$ :F0RZ=1T0MP-1 irem 10 

2270 PRINT«4,LA$;" " ;PR$ (Z, 1 ) ; :LB$=:LEFT$ ( S$ ,6-LEN( 
PR$(Z,1))) :rem 28 

2280 PRINT#4,LB$;PR$(Z,2) ;" {2 SPACES} " ;PR$ (Z , 3 ) ; 

:rem 93 

2290 RA$=LEFT$(S$,45-LEN(PR$(Z,3))-LEN(PR$(Z,6) )) : 
PRINT#4,RA$;PR$(Z,6) ;LF$:NEXT : rem 67 

2300 LB$-LEFT$(S$,57) :PRINT#4,LB$;"gl0 T3";LF$:LB$ 
=LEFT$(S$,30) :rein 252 

2310 PRINT#4,LB$; "TOTAL ";NB$;"{5 SPACES}?"; 

:rem 88 

2320 RA$=LEFT$(S$,28-LEN(NB$)-LEN(PQ$)) :PRINT*4,RA 

$;PQ$;LF$ :rem 141 

2330 LB$=LEFT$(S$,57) sPRINT#4,LB$;"gl0 Tr';CR$:PRI 

NT#4 ,LB$ ; " DDDDDDDDDD :rein 52 

2340 F0RSP=1T012 :PRINT#4,LF$ :NEXT:PRINT#4 iCL0SE4 :G 

OTO280 I rem 79 

2350 POKEBO , 11 :POKEBA, 11 : POKE646 , 1 : hlj^e : PRINT " 

{CLR} " :PRINTN$TAB ( 34) PN:PRINT" {UP} "NB$ 

:rem 139 

2360 PRINT:PRINTTAB(8)"PR0PERTY SUMMARY LISTING 

:rem 110 

2370 PRINTTAB(8)"B24 T§ srem 35 

2380 PRINT "ITEM# BOUGHT DESCRIPT ION "TAB ( 34) "VALUE" 

:rem 77 

2390 F0RL=1T039 :PRINT"gTl" ; :NEXT: PRINT: RETURN 

:rem 193 

2400 POKEBO , 11 :POKEBA, 11 :P0KE646 ,1 :LL=0 :PRIMT" 
ICLR}"sPRINTN$TAB(34)PN:PRINT"{UP} "NB§ 

:rem 135 

2410 PRINTsPRINTTAB(16)"PR0PERTY":PRINTTAB(16)" 

g8 T3": RETURN irem 63 
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2420 POKEBO,15:POKEBA,15 :P0KE646,1 :PRINT"{CLR} ":HG 

=1;PR1NT "HOUSEHOLD GOODS": PRINT :rem 204 

2430 PRINT "DISPLAY VALUE ALL HOUSEHOLD GOODS? (Y/N 

)":PRINT :rem 90 

2440 GETY$ :IFY$=" "THEN2440 : rem 231 

2450 IFy$="Y"THEN1830 : rem 172 

2460 IFy$<>"N"THEN2440 : rem 221 

2470 PRINT "TO SEE ROOM LOCATOR CHART PRESS '0'"iPR 

INT :rem 179 

2480 INPUT"ROOM NO. " ; R0$ :RO=VAL( R0$ ) :IFRO<0ORRO>9T 

HBN2480 :rem 71 

2490 IFRO=0THEN530 :rem 51 

2500 PN=2000+100*RO:NB$°R$(RO) :MP»1:MH=1 :F$="HSEHL 

D GOODS "+R0$ :rem 73 

2510 GOSUB2930 :GOTO370 :rem 35 

2520 F$="HSEHLD GOODS "+R0$ :GOSUB2890 :IFE> 19THEN3 70 

:rem 228 

2530 GOSUB1940:F$-"HSEHIiD GOODS ":0PEN15 ,8,15 t PRINT 
#15,"S0i"+F$sCLOSE15 :rem 97 

2540 OPENS ,8 ,8, "0: "+F$+", S,W" :PRINT#8, MH ", "HG$CR$ : 
CLOSES :HG=0:GOTO640 : rem 199 

2550 POKEBO,4:POKEBA,4:POKE646,l :rem 158 

2560 PRINT "{CLR}":PRINT"APPLIANCES": PRINTS AP=1jPN= 
3000:NB$=Q3$ :rem 199 

2570 F$="APPLIANCES":GOSUB2930:GOTO370 :rem 46 

2580 F$=" APPLIANCES" :6OSUB2890 : IFE>19THBN370 

trem 166 

2590 AP=0:GOTO640 :rem 219 

2600 P0KEB0,2 :POKEBA, 2 :POKE646,l iPRINT" {CLR} " : PRIN 

T "AUTOMOBILES "jPRINT :rem 74 

2610 AU=1 tPN=4000:NB$=Q4$ :P$="AUTOMOBILES":GOSUB29 

30:GOTO370 trem 120 

2620 F$="AUTOMOBILES":GOSUB2890 tIFE> 19THBN370 

:rem 5 

2630 AU=0:GOTO640 :rem 219 

2640 POKEBO , 1 2 :POKEBA, 1 2 :POKE64 6 ,liPRINT"{CLR}"sPR 

INT"PERSONAL ITEMS" tPRINT irem 82 

2650 PI=1:PN=5000:NB$-Q5$ tF$s" PERSONAL ITEMS":GOSU 

B2930:GOTO370 trem 35 

2660 F$=" PERSONAL ITEMS "tGOSUB2890 :IFE> 19THEN370 

trem 171 

2670 PI=0tGOTO640 srem 226 

2680 TA=0tTL=0sTR=0tP$=Pl$ tGOSUB2740 sTL=PL-l :TR=PR 

+lsP$=P2$sGOSUB2740 :rem 193 

2690 TL=TL+PLs TR=TR+PRsTA=TL+TRsIFTA=0THENP3$=" .0 

0"t RETURN trem 28 

2700 IFTA<0THENP3$=STR$(TA-.001) »rem 91 

2710 IFTA>0THENP3$=STR$(TA+.001) trem 92 

2720 P3$=LEPr$(P3$,LEN(P3$)-l) tIFLEFT$(P3$,l)=CHR$ 

(32)THENP3$=MID$(P3$,2) srem 31 
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2730 RETURN : rem 172 

2740 PL$=LEFT$(P$,LEN(P$)-3) :PI;=VAL(PL$) :rein 21 
2750 PR$=RIGHT?(P$,3) :PR=VAL(PR$) :IFPL<0THENPB?=PR* 

-1 :rein 179 

2760 RETURN trem 175 | 

2770 PRINT :PRINT "SUMMING . " ; ;P1$="0 .00" :F0RZ=1T0MP 

-1 :P2 $=PR$ ( Z , 6 ) :GOSUB2680 : rem 16 

2780 Pl$=P3$iPRINT" NEXT : RETURN : rem 97 , i 

2790 PRINTiPRINT "SORTING . . " ; :IPMP=< 2THEN2880 1 — f 

2 rem 57 

2800 F0RJJ=lT0MP-2 :F0RKK=JJ+1T0MP-1 :IFPR$(KK, 1)>PR 
$( JJ,1)THEN2870 :rem 237 

2810 SM$=PR$(KK,1) :RM$=PR$(KK,2) :TM$=PR$(KK,3) 

:rera 99 

2820 UM$=PR$(KK,4) :VM$=PR$(KK, 5) :WM$=PR$(KK,6) 

:rem 118 

2830 PR$(KK,1)=PR$( JJ,1) iPR$(KK, 2)=PR$( JJ , 2) :PR$(K 
K,3)=PR$( JJ,3) :rem 52 

2840 PR$(KK,4)=PR$(JJ,4) :PR$(KK , 5 )=PR$( JJ , 5) :PR$(K 
K,6)=PR$( JJ,6) :rem 71 

2850 PR$(JJ,1)=SM$ :PR$(JJ,2)=RM$ :PR$( JJ , 3 )=TM$ 

:rem 97 

2860 PR$( JJ,4)=!UM$ iPR$( JJ,5)=VM$ :PR$( JJ , 6 )=WM$ 

:rem 116 

2870 NEXTrPRINT" .";:NEXT :rem 253 

2880 RETURN :rem 178 

2890 PRINT SPRINT "SAVING . . " j sOPEN15 ,8 ,15 :PRINT#15 

, "S0:"+F$ JCL0SE15 srem 186 

2900 OPEN8,8,8, "0: " + F$ + " ,S ,W" :PRINT#8, MP", "PQ$CR$ : 

PRINT" . "j :FORJB=lTOMP-l :rem227 
2910 F0RKB=1T06:PRINT#8,PR$(JB, KB)", ".-PRINT" .";:N 

EXT: NEXT : rem 7 

2920 CLOSE8:GOSUB2990:RETURN :rem 35 

2930 PRINT: PRINT "LOADING ."; :rem 205 

2940 OPEN15 ,8,15 sOPENS , 8 , 8 , " : " +F$ + " ,S , R " : INPUT#8 , 

MP,PQ$ :rem 131 

2950 PRINT" ."; :INPUT#15,E,E$:IFE>19THENCLOSE8:CLO { \ 

SE15:GOTO2980 :rem 82 ' — ' 

2960 F0RJ&=1T0MP-1 :F0RKB=1T06 : INPUT#8 ,PR$( JB ,KB) :P 

RINT" . :NEXT:NEXT :rem 88 

2970 CLOSE8:CLOSE15 :rem 150 j 

2980 RETURN :rem 179 

2990 E=«:OPEN15,8,15:INPUT#15,E,E$ :rem 167 

3000 IFB>19THENPRINT:PRINTE$ :SYS828:PORI>=1TO5000:N i < 

EXT :rem 186 1 — ! 

3010 CLOSEl 5: RETURN :rem 186 

3020 EF=CI:L1=LEN(P$) :F0RI^1T0U : T$=MID$( PS ,L, 1) :AB 

=ASC(T$) :IPAB=46THENNEXT : rem 210 

3030 IPAB<480RAB>57THENI/=L1:EP=1 :PRINT:PRINT "ERROR 
IN INPUT": syS828 :rem 20 
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3040 NEXT:RETURN :rem 32 

3050 PRINT"{CLR}":POKEBO,5:POKEBA,5 :POKE646,0 

trem 57 

3060 PRINTN$ TAB ( 3 7 ) " 2 5 " : P RINT " P ROP ERT Y " : P RltlT " 

{2 DOWN)" :rem 194 

3070 PRINTTAB( 11) "VALUE ALL PROPERTY" :PRINTTAB( 11) 

"gl8 T§": PRINT trem 210 

3080 6OSUB3240 '.rem 20 

3090 IFRE$=""THENRE$="0.00 :rem 158 

3100 PRINTQ1$TAB(39-LEN(RE$) )RE$:IFHG$=""THENHG$=" 

0.00 :rem 90 

3110 PRINTQ2$TAB( 39-LEN( HG$ ) ) HG? : P1$=RE$ : P2$=HG$ :G 

OSUB2680 :rein 129 

3120 IFAP$=""THENAP$="0.00" :rem 174 

3130 PRINTQ3$TAB (39-LEN( AP$ ) ) AP$ :P1$=P3$ :P2$=AP$ :G 

OSUB2680 :rem 118 

3140 IFAU$=""THENAU?="0.00" :rem 186 

3150 PRINTQ4§TAB(39-LEN(AU$))AU$:P1$=P3$:P2$=AU§:G 

OSUB2680 trem 136 

3160 IFPI$=""THENPI$="0.00" :rem 194 

3170 PRINTQ5$TAB(39-LEN(PI$) )PI$:P1$=P3$ :P2$=PI$:G 

OSUB2680:PQ$=P3$ : rem 119 

3180 PRINTTAB(30)"g9 Tl" :PRINTTAB (5) "TOTAL PROPERT 

Y{8 SPACES} $"; : rem 179 

3190 PRINTTAB(39-LEN(PQ$) )PQ$: PRINT: PRINT "HARD COP 

Y? (Y/N) trem 69 

3200 GETA? :IFA$=""THEN3200 :rem 173 

3210 IFA$="Y"THEN3310 srem 138 

3220 IFA$<>"N"THEN3200 :rem 187 

3230 GOTO280 :rem 155 

3240 OPEN15,8,15:F$="REAL ESTATE" :rem 102 

3250 0PEN8 , 8 , 8 , " : " +F$+ " , S , R" : INPUT#8 , MR, RE$ : CLOSE 

8 :rem 150 

3 260 F$= "AUTOMOBILES " : OPENS , 8 , 8 , " : " +F$+" , S , R" : INP 

UT#8,MA,AU$:CLOSE8 :rem 238 

3 270 F$ = "APPLIANCES " : OPENS , 8 , 8 , " j " +F$ + " , S , R " : INPU 

T#8,ML,AP$:CLOSE8 trem 145 

3280 F$="PERSONAL ITEMS" tOPENS ,8,8, "0 t "+F$+" ,S, R" f 

INPUT#8,MI,PI$tCLOSE8 trem 157 

3290 F$="HSEHLD GOODS " :0PEN8,S, 8, "0 : "+F$+" ,S, R" 

trem 52 

3300 INPUT#8,MH,HG$tCLOSE8:CLOSE15tRETUBN trem 105 
3310 OPEN4,4,lfLB$=LEFT$(S$,58-LEN(N$) ) :PRINT#4,LA 
$;N$;LB$;"25";LF$ trem 254 

3320 PRINT#4, LA$;" PROPERTY" ;LF$;LF$ trem 111 

3330 LB$=LEFT$ (S$, 31 ) tPRINT#4,LB$; "VALUE ALL PROPE 
RTY";LF$ trem 166 

3340 PRINT#4,LB$;"B13 Ti " ;LF$ ;LF$ t RA$=LEFT$ ( S$ ,49- 
LEN(RE$)) trem 42 
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3350 PRINT#4 ,IiA$ ;Q1$ ; RA$ ; RE$ ;LF$ :RA$=LEFT$ ( S$ , 45-L 

EN(HG$)) srem 48 

3360 PRItJT#4 ,LA$ ;Q2$ ; RA$ ; HG$ ;LF$ :RA$=LEFT$ ( S$ , 50-L 

EN(AP$)) :rem 40 

3370 PRINT#4 , LA$ ; Q3$ ; RA$ ; AP$ ; LF$ : RA$=LEFT$ ( S$ , 49-L 

EN(AU$)) srem 57 

3380 PRINT#4 ,LA$ ;Q4$ ; RA$ ; AU$ ;LF$ :RA$=LEFT$ { S$ , 46-L 

EN(PI§)) srem 64 

3390 PRINT#4 ,1A$ ;Q5$ ; RA$ ; PI$ ;LF$ :LB$=LEFT$ ( S$ , 57 ) : 

PRINT#4,LB$;"il0 T|";LF$ srem 242 

3400 LB$=LEFT$(S$, 30) sPRINT#4,LB$; "TOTAL PROPERTY 

{9 SPACES}?"; »rem 63 

3410 RA$=LEFT$(S$,16-LEN(PQ$)) :PRINT#4,RA$;PQ$;LF$ 

srem 122 

3420 LB$=LEFT§(S$,57) 5PRINT#4,LB$;"B10 Ti";CR$sPRI 

NT#4 , LB$ ; " DDDDDDDDDD srem 53 

3430 F0RSP=1T012 sPRINT#4, LF$ sNEXT$PRINT#4 sCL0SE4 sG 

OTO280 srem 80 

3440 POKEBO,14sPOKEBA,6sPOKE646,14 srem 4 

3450 PRINT"{CLR}{6 DOWN} "sPRINTTAB( 12) "REMOVE DATA 
DISK" SPRINT srem 6 

3460 PRINTTAB(18)"AND"sPRINTsPRINTTAB(10)"INSERT P 

ROGRAM DISK"$PRINT$PRINT"{4 DOWN} srem 105 
3470 PRINTTAB(9)"PRESS ' C TO CONTINUE srem 4 

3480 GETA$ :IPA$=""THEN3480 srem 193 

3490 IFA$<>"C"THEN3480 srem 195 

3500 POKE631,83sPOKE632,89sPOKE633,83 srem 101 

3510 P0KE6 34,53s P0KE6 35,49s P0KE6 36,48s P0KE6 3 7 , 48 s P 

OKE638,48sPOKE639,13 srem 71 

3520 POKE198,9sNEW srem 36 



BALANCE SHEET 

Remember to use the name above for the program you place on the PAM master disk. 

20 N=100sK=13sPN=10sYB=0sBO=53280sBA=53281 srem 99 
30 MAX=0sTA=0sTIi=0sTR=0sPL=0sPI^0$LJ=0 srem 79 

40 LF§=CHR$(10) sCR$=CHR$(13) $SP$=CHR$ ( 32) $NC=80$PC 

=0 srem 143 

50 S$=" " $ FORSP=lTONC s S$=S$+SP$ sNEXT: IiA$=LEFT$ ( 8$ , 1 

0) :LB$="":RA$="" srem 62 

60 YR$=" " :N$=" " sNN$="-" sNl$=" " sN2$=" " sN3$=" " sN4$=" 

srem 9 

70 BA$=" .00" : PT$=" .00" : UP§=" .00" : DQ$=" .00" : D0$ 
="0.00"sDP$="0.00" srem 99 

80 HG$="0.00":AP$="0.00":AU$="0.00"sPI$="0.00":RES 
="0.00" srem 37 

90 P$=" " sPl$=" " sP2$="" $P3$=" " sPL$=" "sPRS=" " sDIMLS ( 
30),M$(12) ,rem 6 
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^ 100 M$(1)="JANUARY":M$(2)="PEBRUARY":M${3)="MARCH" 

' i :M$(4)="APRIL" :rem 114 

110 M$ ( 5 ) = " MAY " I M$ ( 6 ) = " JUNE " : M$ ( 7 ) = " JULY" : M$ ( 8 ) = " A 
UGUST" :rem 92 

120 M?(9)="SEPTEMBER":M$(10)="OCTOBER" :rem 162 
1 30 M$ ( 1 1 ) = "NOVEMBER " : M$ ( 1 2 ) = "DECEMBER " : POKEBO , 10 : 
POKEBA,10:POKE646,7 : rem 26 

r-~, 140 PRINT"{CLRl {3 DOWN}" :rem 44 

; 1 150 PRINTTAB( 13) "BALANCE SHEET":PRINT:PRINT:F0RD=1 

TO5000:NEXT irem 148 

160 POKEBO,14:POKEBA,6:POKE646,14 :rein 208 

170 PRINT"{CLR} {6 DOWN} " :PRINTTAB( 10) "REMOVE PROGR 
AM DISK": PRINT :reih 206 

180 PRINTTAB( 18) "AND" :PRINT:PRINTTAB( 10) "INSERT DA 
TA DISK"iPRINT"{4 DOWN}" :rem 146 

190 PRINTTAB(9)"PRESS 'C TO CONTINUE" :rem 242 
200 GETA$iIFA$<>"C"THEN200 : rem 199 

210 POKEBO,9:POKEBA,9:POKE646,l :rem 111 

220 PRINT"{CLR}{3 DOWN} " tPRINTTAB ( 13) "BALANCE SHEE 
T"iPRINT:PRINT :rem 175 

230 PRINT "LOADING PERSONAL DATA . " ; iF$="PERSDATA" j 
OPEN8,8,8,"0:"+F$+",S,R" :rem 11 

240 INPUT#8,YR$,N$,N1$,N2$,N3$,N4$ :rem 92 

250 PRINT" ."; :FORJ=1TO30:INPUT#8,L$( J) :NEXTJjPRIN 
T" .";iCL0SE8 : rem 43 

260 GOSUB1850:IFE>19THEN160 :rem 98 

270 POKEBO,8:POKEBA,8:POKE646,7 :rem 121 

280 PRINT"{CLR} {3 DOWN} " :PRINTTAB( 13 ) "BALANCE SHEE 
T"iPRINTi PRINT :rem 181 

290 PRINTTAB(12)"{D0WN}1. BALANCE SHEET" tPRINTTAB( 
12)"{DOWN}2. MAIN MENU" irem 39 

300 PRINTTAB(10)"{3 0OWN}PRESS DESIRED NUMBER" 

:rem 118 

310 GETA$ :IFA$=""THEN310 :rem 75 

320 IFA$<"1"ORA$>"2"THEN310 :rem 183 

330 Aj^VAL(A$) :ONAAGOTO340«1880 :rem 20 

340 SYS828:POKEBO,2:POKEBA,2:POKE646,l :rem 64 

350 PRINT"{CLR} {2 DOWN} " :PRINTTAB(13 ) "BALANCE SHEE 
T":PRINT SPRINT :rem 162 

360 PRINT "THIS REPORT WILL NOT BE ACCURATE UNLESS" 

:rem 80 

370 PRINT "THE FOLLOWING ARE UP TO DATES "jPRINT 

srem 60 

380 PRINTTAB(5)"R0UTINE{12 SPACES }OPTION"sPRINT 

srem 143 

390 PRINTTAB( 3) "ACCOUNT BALANCES {3 SPACES } CURRENT 

{SPACE} BALANCES" srem 106 

400 PRINTTAB( 3) "UNPAID BILLS(7 SPACES}UNPAID BILLS 
" SPRINT srem 245 
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410 PRI1JT"ARE THESE FILES UP TO DATE? (Y/N)"jPRINT 

:reni 189 

420 PRINT"PRESSING 'N' WILL RETURN YOU TO THE MAIN 

MENU; PRESS 'Y' TO CONTINUE." irem 6 

430 GETA$:IFA$=""THEN430 irem 81 

440 IFA$="N"THEN1880 :rem 91 

450 IFA$<>"Y"THEN430 jrem 106 

460 PRINT"{CLR}{2 DOWN}"jIPYB=1THEN900 :rem 186 
470 POKEBO, 15 jPOKBBA, 15 :POKE646 , 11 jPRINTTAB( 13 ) "BA 

LANCE SHEET"! PRINT I PRINT :rem 134 

480 PRINTx INPUT "TODAY'S DATE" ;DA$ tPRINT:El§="LOADI 

NG CURRENT ASSETS" :rein 68 

490 F0RB=1T0LEN(E1$) :PRINTMID$( El$ ,B, 1) ; :F0RZ=1T03 

5:NEXTZ,B!PRINT!F$="CURBAL" : rem 49 

500 0PEN15,8,15 :rem 35 

510 OPENS, 8, 8, "0:"+F$+",S,R":INPUT#15,E,E$ :IFE>19T 

HENCLOSE8:CLOSE15 :GOTO540 :rem 177 

520 INPUT#8,BA$:F0RJ=1T09:INPUT#8,BA$( J),BB$( J) :NE 

XTJ t CLOSES : CLOSEl 5 :GOSUB 1850 trem 85 

530 IFE>19THEN270 trem 220 

540 E1$-"L0ADING FIXED ASSETS" trem 245 

550 P0RB=1T0LEN(E1?) tPRINTMID$(El$,B,l) ; fF0RZ=lT03 

5tNEXTZ,B trem 137 

560 PRINT :F$="REAL ESTATE" trem 55 

5 70 0PEN15 , 8 , 15 t OPENS , 8 , S , "0 1 " +F$+ " , S , R " t INPUT# 15 , 

E,E$ trem 202 

580 IFE>19THENCLOSE8tCLOSE15tGOTO600 trem 21 

590 INPUT#8 ,MRE, RE$ tCLOSES tCL0SE15 :GOSUB1850 tIFE> 1 

9THEN270 trem 132 

600 F$="HSEHLD GOODS"tOPEN15,8,15 tOPEN8,8,8, "0t "+F 

$+",S,R"t INPUT* 15, E,E$ trem 29 

610 IFE>19THENCLOSE8fCLOSE15tGOTO630 trem 18 

620 INPUT*8, MHG , HG$ t CLOSES tCL0SE15 tGOSUB1850 1 IFE> 1 

9THEN270 trem 110 

630 F$= "APPLIANCES " tOPEN15 ,8 , 15 t OPENS ,8,8, "0 1 "+F$+ 
",S,R"tINPUT#15,E,E$ trem 204 
640 IFE>19THENCLOSE8tCLOSE15 tGOTO660 trem 24 
650 INPUT#8 , MLN , AP$ t CLOSES t CLOSEl 5 tGOSUBl 85 1 1 FE > 1 

9THEN270 trem 126 

660 F$="AUTOMOBILES " : 0PEN15 ,8 , 15 tOPENS ,8 ,8 , "0 1 "+F$ 

+",S,R":INPUT#15,E,E$ trem 51 

670 IFE>19THENCLOSE8tCLOSE15tGOTO690 trem 30 

680 INPUT#8,MAU,AU$ t CLOSES tCL0SE15 tGOSUB1850 tIFE>l 

9THEN270 -rem 130 

690 F$="PERSONAL ITEMS " t 0PEN15 ,8 , 15 tOPENS ,8 ,8, "0 t " 
+F$+",S,R"tINPUT#15,E,E$ trem 216 

700 IFE>19THENCLOSEStCLOSE15 tGOTO720 trem 18 

710 INPUT#8 ,MIP ,PI$ tCLOSES tCLOSElS tGOSUBlS50 tIFE> 1 
9THEN270 :rem 130 
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720 P1$=DQ$ :P2$=HG$ :GOSUB1330 :DO$=P3$ :P1$=D0$ :P2$= 
AP$:GOSUB1330:DO$=P3$ :rem 85 

730 P1$=D0$ :P2$=AU$ :GOSUB1330 :D0$=P3$ iPl$=DO$ jP2$= 
PI$ :GOSUB1330:DO$=P3$ trem 99 

740 TA=0 :TL=0:TR=0 :P$="0.00" :GOSUB1380 :TL=PL-1 jTR= 
PR+1 :P$=DO$ :GOSUB1380 trem 248 

750 TL=TL+PL:TR=TR+PR:TA=TL+TR:TA=TA/2:TA=INT( 100* 



790 DP$=NN$+P3$ :P1$=RE$ tP2$=D0$ :GOSUB1330 :FA§=P3$ : 
P1$=FA$:P2$=DP$:GOSUB1330 srem 57 

800 PA$=P3$:P1$=BA$:P2$=FA$ :GOSUB1330 :BC$=P3$ :E1$= 
"LOADING LIABILITIES" :rem 120 

810 F0RB=1T0LEN(E1$) sPRINTMID$( El$ , B, 1) ; :F0RZ=1T03 
5:NEXTZ,B trem 136 

820 PRINTfF$="UNPAID BILLS" :rem 131 

830 0PEN15 ,8 , 15 :0PEN8 ,8 ,8 , "0 1 "+F$+" , S , R" : INPUT* 15 , 
E,E$ trem 201 

840 IFE>19THENCLOSE8tCLOSE15tGOTO860 trem 28 

850 INPUT#8 ,UP$ ,UPB, DU$ tCLOSE8 t CLOSE15 tGOSUB1850f I 
FE>19THEN270 trem 125 

860 E1$="C0MPUTING NET WORTH" trem 234 

870 F0RB=1T0LEN(E1$) tPRINTMID? ( El$ ,B, 1 ) ; tF0RZ=lT03 
5:NEXTZ,B trem 142 

880 PRINTtPl$=BC$ tP2$=NN$+UP$ trem 195 

890 GOSUB1330fNW$=P3$tYB=ltGOTO900 trem 30 

900 POKEBO,9tPOKEBA,9tPOKE646,l fK=13 tLL=0tPRINT" 

{CLR}"tPRINTN$TAB(36)PN trem 224 

910 PRINT" {UPjAS OF ";DA$ trem 9 

920 PRINT tPRINTTAB( 13) "BALANCE SHEET" :PRINTTAB( 13) 
"gl3 T§" :rem 252 

930 PRINT" {DOVJN} CURRENT ASSETSt " tPRINTt LI/=LL+3 t FOR 
J=lTO9tIFBB$(J)=""THEN960 trem 138 

940 PRINTTAB(2)BB$(J); tPRINTTAB( 39-LEN(BA$( J) ) )BA$ 
(J) tLL=LL+l :rem 65 

950 IFLL=>KTHENGOSUB1300 :rem 254 

960 NEXTJtPRINTTAB(28)"ill T3" tLL=LL+l tIFLL=>KTHEN 
GOSUB1300 :rem 99 

970 PRINTTAB(4)"T0TAL CURRENT ASSETS{3 SPACES}$";t 
PRINTTAB( 39-LEN(BA$) )BA$ trem 172 

980 PRINTtLL=LL+2 tIFLL=>KTHENGOSUB1300 trem 204 
990 PRINT" {DOWN} FIXED ASSETS: " tLL=LL+2 t IFLL=>KTHEN 
GOSUB1300 :rem 159 

1000 PRINTTAB(2)"{D0WN)REAL ESTATE" ; tPRINTTAB{ 39-L 
EN( RE$ ) ) RE$ tLL=LL-»-l : rem 83 

1010 IFLL='>KTHENGOSUB1300 trem 34 

1020 PRINTTAB( 2) "HOUSEHOLD GOODS" ; tPRINTTAB (39-LEN 
(HG$))HG$tLL=LL+l trem 113 



TA+.5)/100 
760 IFTA=0THENP3$="0.00" :GOTO790 
770 IFTA>0THENP3$=STR$(TA+.001) 
780 P3$-MID$(P3$,2,LEN(P3$)-2) 



: rem 21 3 
trem 86 
trem 48 
trem 57 
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1030 IFLL=>KTHENGOSUB1300 trem 36 

1040 PRINTTAB( 2) "APPLIANCES"; :PRINTTAB( 39-LEN(AP$ ) 

)AP$:LL=LL+1 :rem 48 

1050 IFLL=>KTHENGOSUB1300 irem 38 

1060 PRINTTAB( 2) "AUTOMOBILES"; :PRINTTAB ( 39-LEN{ AU$ 

))AU$:LLbLL+1 trem 160 

1070 IFLI.=>KTHENGOSUB1300 trem 40 

1080 PRINTTAB( 2) "PERSONAL ITEMS" ; iPRINTTAB{ 39-LEN( 

PI$) )PI$:LL=LL+1 : rem 74 

1090 IFLL=>KTHENGOSUB1300 trem 42 

1100 PRINTTAB (4)" DEPRECIATION" ; :PRINTTAB(39-LEN( DP 

$))DP$ trem 201 

1110 PRINTTAB { 28 )"gll T§" trem 39 

1120 LI^LL+2tIFLIi=»KTHENGOSUB1300 trem 40 

1130 PRINTTAB (4) "TOTAL FIXED ASSETS{5 SPACES)?" ;tP 

RINTTAB(39-LEN(FA$) )FA$ trem 38 

1140 PRINTTAB (28) "ill Ti" tLL=LL+2 tIFLL=>KTHENGOSUB 

1300 trem 200 

1150 PRINT " {DOWN }TOTAL assets! 15 SPACES}?" ; tPRINTT 

AB(39-LEN(BC$) )BC$ trem 105 

1160 PRINTTAB ( 28 ) " DDDDDDDDDDD " t LL=LL+2 t IFLL=>KTHEN 

GOSUB1300 trem 53 

1170 PRINT "{DOWN} LIABILITIES AND NEW WORTHt "tLL=LL 

+2 t IFLL=>KTHENGOSUB1300 : rem 255 

1180 PRINTTAB { 2) " {DOVJN}UNP AID BILLS{13 SPACES} ?" ;t 

PRINTTAB {39-LEN( UP?)) UP? trem 230 

1190 LL=LL+2 tIFLL=>KTHENGOSUB1300 trem 47 

1200 PRINTTAB(2)"{D0WN}NET W0RTH{16 SPACES} ?"; tPRI 

NTTAB(39-LEN(NW?) )NW? trem 35 

1210 LIr=LL+2 t IFLL=>KTHENGOSUB1300 trem 40 

1220 PRINTTAB ( 28) "g 11 T3" t PRINT " {DOWN }TOTAL LIAB. 

{ SPACE }& NEW worth! 4 SPACES}?"; trem 18 

1230 PRINTTAB ( 39-LEN( BC? ) )BC? tPRINTTAB ( 28 ) " DDDDDDD 

DDDD " t PRINT : LL=LL+2 trem 106 

1240 IFLL=>KTHENGOSUB1300 trem 39 

1250 PRINT" { DOWN }HARD COPY (Y/N) ?" trem 106 

1260 GETA?tIFA?=""THEN1260 trem 181 

1270 IFA?="N"THEN270 trem 85 

1280 IFA$<>"Y"THEN1260 trem 206 

1290 6OTO1410 trem 203 

1300 PRINTtPRINTTAB(9)"PRESS ' C TO CONTINUE" 

trem 227 

1310 GETA?tIFA?<>"C"THEN1310 trem 45 

1320 PRINT"{CLR}"tLL=0tPRINTN?TAB(36)PNtPRINT"{UP} 

AS OF ";DA?tPRINTtRETURN trem 91 

1330 TA=0tTL=0tTR=0 tP?=Pl? tGOSUB1380 tTL=PL-l iTR=PR 

+ltP?=P2?!GOSUB1380 trem 182 

1340 TL=TL+ PL : TR= TR+ PR t TA=TL+ TR 1 1 FT A=0 THENP 3 ? = " . 

0"tRETURN trem 19 

1350 IFTA<0THENP3?=STR?(TA-.001) trem 91 
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1360 IPTA>0THENP3$=STR$(TA+.001) : rem 92 

1370 P3$=IiEFT$(P3$,LEN(P3$)-l) : RETURN : rem 113 

1380 PL$=LEFT$(P$,LEN(P$)-3) :PIi=VAL( PL$) sPR$=RIGHT 

$(P$,3) »PR=VAL(PR$) : rem 42 

1390 IFPL<0THE1SIPR=PR*-1 :rem 156 

1400 RETURN :rem 165 

1410 PRINT" {CXR}"jPRINTTAB( 13) "BALANCE SHEET":PRIN 

TiPRINTTAB{13)" {DOWNIpRINT REPORT" :rem 248 
1420 0PEN4,4,1 :rem 234 

1430 LB$=LEFT$(S$,57-LEN(N$)) :PRINT#4 ,LA$ ;N$ ;LB$ ;P 

N;LF$ :rem 148 

1440 PRINT#4,LA$;"AS OF " ;DA$ ;LF$ ;LF$ : rem 248 

1450 LB$=LEFT$ (S$, 33) jPRINT#4,LB$; "BALANCE SHEET"; 

LF$ :rem 45 

1460 PRINT#4,LB$;"il0 T§" ;LF$ ;LF$ :PRINT#4,LA$ ; "CUR 

RENT ASSETS! ";LP$;LF$ jrem 216 

1470 P0RJ=1T09:IFBB$( J)=""THEN1500 : rem 201 

1480 LB?=LEFT$(S$,12) :PRINT#4,LB$;BB$(J); :rem 23 
1490 RA$=LEFT$ ( S$ , 58-LEN(BB$ (J) ) -LEN(BA$ ( J) ) ) :PRIN 

T#4,RA$;BA$(J) ;LF$ jrem 32 

1500 NEXTJ:LB$=LEFT$(S$,55) tPRINT#4,LB$;"ill Ti";L 

F$ :rem 146 

1510 LB$=LEFT$(S$,14) tPRINT#4,LB$;"T0TAL CURRENT A 

SSETS{18 SPACES}?"; J rem 178 

1520 RA$=LEFT$(S$,17-LEN(BA$) ) jPRINT#4 ,RA$ ;BA$ ;LP§ 

;LF$ :rem 48 

1530 PRINT#4,LA$; "FIXED ASSETS t " ;LF$ ;LF$ :rem 104 
1540 LB$-LEFT$(S$,12) tPRINT«4,LB$;"REAL ESTATE"; 

:rem 255 

1550 RA$aLEFT$(S$,47-LEN(RE$)) tPRINT«4, RA$;RE$;LF$ 

:rem 109 

1560 LB$»LEFT$( S$, 12) :PRINT«4,LB$; "HOUSEHOLD GOODS 
" ; : rem 62 

1570 RA$=LEFT$(S$,43-LEN(HG$)) :PRINT#4, RA$;HG$;LF$ 

trem 91 

1580 LB$=LEFT$(S$,12) iPRINT#4 ,LB$ ; "APPLIANCES" ; 

:rem 249 

1590 RA$=LEFT$(S$,48-LEN(AP$)) »PRINT#4, RA$; AP$ ;LF§ 

srem 102 

1600 LB$»LEFT$( S$ ,12) >PRINT#4 ,LB$ ; "AUTOMOBILES" ; 

:rem 86 

1610 RA$=LBFT$(S$,47-LEN(AU$)) jPRINT#4,RA$;AU$;LF$ 

:rem 104 

1620 LB$»LEFT$(S$,12) :PRINT#4,LB$;"PERS0NAL ITEMS" 
; trem 250 

1630 RA$-LEFT$(S$,44-LEN(PI$)) iPRINT#4,RA$;PI$;LF$ 

:rem 109 

1640 LB$sLEFT$( S$ ,14) tPRINT#4,LB$ ; "DEPRECIATION" ; 

srem 143 
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1650 RA$=LEPT$(S$,44-LEN(DP$)) :PRINT#4, RA$ ;DP$ ;LF$ 

:rein 101 

1660 LB$=LEFT$(S$,55) :PRINT#4,LB$;"gll T|";LF$ 

:rein 214 

1670 LB$=LEFT$(S$,14) :PRINT#4,LB$j"T0TAL FIXED ASS 
ETS120 SPACES }$"; :rem 6 

1680 RA$=LEFT$(S$,17-LEN(FA$)) :PRINT#4,RA$;FA$;LF$ 

trem 78 

1690 LB$=LEFT$(S$,55) :PRINT#4,LB$;"ill T|";LF§ 

:rem 217 

1700 LB$=LEFT$ (S?, 16) :PRINT#4,LB$; "TOTAL ASSETS 

{24 SPACES}?"; J rem 146 

1710 RA$=LEFT$(S$,17-LEN(BC§)) :PRINT#4 , RA$ ; BC$ ;LF$ 

:rein 68 

1720 LB$=LEFT$(S$,55) iPRINT#4,LB$;"gll T|";CR$ 

srem 214 

1730 PRmT#4 ,LB$ ; " DDDDDDDDDDD " ;LF$ :rem 105 

1740 PRINT#4,LF$;LF$:PRINT#4,IiA$; "LIABILITIES AND 

{SPACE}NET WORTH: ";LF$;LF$ : rem 146 

1750 LB$=LEFT$(S$, 12) :PRINT#4, LB? , -"UNPAID BILLS"; 

:rein 79 

1760 RA$=LEFT$(S$,46-LEN(UP$)) :PRINT#4, RA$ ;UP$ ;LF$ 
;LF$ :rein 124 

1770 LB$=LEFT§(S$,12) :PRINT#4,LB$;"NET WORTH"; 

:rem 149 

1780 RA$=LEFT$(S$,49-LEN(NW$)) :PRINT#4,RA$;NW$;LF$ 

:rein 144 

1790 LB$=LEFT$(S$,55) :PRINT#4,LB$;"gll Tl";LP$ 

trem 218 

1800 LB$=LEFT$(S$,16) :PRINT#4,LB$;"T0TAL LIABILITI 
ES AND NET W0RTH{5 SPACES)?"; trem 57 

1810 RA$=LBFT$(S$,17-LEN(BC$)) :PRINT#4 ,RA$ ; BC$ ;LF$ 

:reni 69 

1820 LB$=LEFT$(S$,55) :PRINT#4,LB$;"ill Tl";CR$ 

trem 215 

1830 PRINT#4 ,LB$ ; " DDDDDDDDDDD " ;LF$ :rein 106 

1840 F0RSP=1T012 tPRINT#4,LF$ :NEXTtPRINT«4:CL0SB4 :G 

OTO270 :rem 82 

1850 E=0sOPEN15,8,15:INPUT#15,E,E$ :rem 161 

I860 IFE> 19THENPRIMT : PRINTER :SYS828 :FORD=1TO5000 :N 

EXT trem 198 

1870 CLOSEl 5: RETURN :rem 198 

1880 POKEBO,14:POKEBA,6iPOKE646,14 trem 10 

1890 PRINT"{CLR} {6 DOWN }" t PRINTTAB ( 12) "REMOVE DATA 
DISK":PRINT trem 12 

1900 PRINTTAB(18)"AND":PRINT:PRINTTAB(10)"INSERT P 

ROGRAM DISK"tPRINT"{4 DOWN}" trem 193 

1910 PRINTTAB (9) "PRESS 'C TO CONTINUE" trem 35 
1920 GETA$tIFA$»""THEN1920 trem 187 

1930 IFA$<>"C"THEN1920 trem 189 
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1940 POKE631,83:POKE632,89:POKE633,83 :rem 107 

1950 POKE634,53 :POKE635 ,49 :POKE636,48 :POKE637 , 48 :P 
OKE638,48:POKE639,13 : rem 77 

1960 POKE198,9:NEW :rein 42 
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"Account Balances" program 55-58, 93 

program listing 232-38 
"Adjustments" program 47-52, 94 

program listing 191-204 
annual budget, should not be revised 

later 122 
appliances 65, 79 

"Automatic Proofreader, The" program 

139-42 
automobiles 75, 79, 81 

repair 65, 79 
"Back-Up Files" program 131-32 

program listing 230-32 
backup habits 131 

balance sheet, minimum required 93 
"Balance Sheet" program 75, 93-95 

program listing 278-85 
BASIC programs 135 
bill pajdng, not automatic 89 
bonds 61, 64-65 

bonds and stocks, difference between 
66 

budgeting 109-15, 119-28 

canceled checks 119 

CAS code ix, 33, 38 

cash account DIS code 10 

cash-basis accounting ix 

CHE code ix, 33, 38 

codes, capital letter ix 

Commodore graphics ix, xv 

Commodore printers ix 

comparative reports, budgeting 123 

credit cards 39, 40 

credit purchases, distributing 40 

current value, of securities 67-68 

data disk 3-4 

DATA statements 135-36 

deductions, payroll 27 

depredation 81-82, 94 

DIS codes 10-11 

disk drive ix 

misaligned xiii 
Disposition of Income (PERSONAL 

DATA option) 9-12 
Epson printers ix 

erroneous accounts, changing 16-17 
expense 33-44 

Expense Accounts (PERSONAL DATA 

option) 13-17, 33, 47, 119 
expense codes 33 



expense control 102-3 
"Expense" program x, 33-44 

program listing 178-91 
expense reporting, detailed 34 
expenses, preexpended 34-36 
files, backing up 131-32 
From Whom Received (PERSONAL 

DATA option) 11-12 
garbage collection xiv, 62 
Gemini printer ix 
half-depredation 82 
hard copies, importance of xi 
hardware requirements ix 
household accounting, difficulty of 47 
household goods 55, 80, 81 
income, splitting between accounts 

26-27 
income codes 23-24 
"Income" program x, 23-29, 47, 61 

program listing 166-78 
insurance claims 75 
interest income 23 

"Investments" program x, xi, 61-71, 
101 

program listing 251-66 
IRS ix, 23 

last year's records 111-12, 122 
loading the system xiii 
main menu 4 
method, developing xi 
Minimum Balance Required report 119, 
123-28 

month-by-month reporting, importance 

of 33 
mutual funds 66 

new month, setting up for 25, 37 
new year, setting up for 18-19, 58, 71, 

85, 90, 128, 132 
notebook 33-34 
Okidata printers ix 
PAM master disk. See program disk 
"PAM" program listing 142-47 
Peanut Butter Jars Fund, expense 

reporting 34-36 
Personal Accounting Manager. See 

PAM 

personal data 5-6, 33 

"Personal Data" program x, 3-29 

program listing 147-65 
personal items 79-80 



Petty Cash Fund, expense reporting 
34-36 

"Planned Expenditures" program x, 36, 
119-28 

program listing 216-30 
"Planned Income" program x, 109-15 

program listing 205-16 
printers ix, 24 

problems with xv-xvi 
profit and loss 99 
program disk 3 

program listing conventions 135 
program listings 142-285 
property lists 75-85 
"Property" program x, xi, 61, 71-85, 
93 

program listing 266-78 
quote mode 137-38 
real estate 61, 75, 78-79, 81 
refunds, income tax 27, 49 
reports 6-8, 17-19, 69-70 
room location 75-76, 80 
savings account 41, 49 

splitting 50 
securities, buying 63 
small business applications 16 
Social Security 25 



Sources of Funds (PERSONAL DATA 

option) 12 
Star/Gemini SG-IOC printer xvi 
statement of income and expense 

99-105 

interpreting 101-2 
"Stmnt of I&E" program x, xi, 93, 
99-105 

program listing 244-51 
stocks 61-64 

stocks and bonds, difference between 
66 

transferring funds 39, 63, 50-51, 101 

TRANSFERS, subroutine of ADJUST- 
MENTS 47 

"TurboDisk" program xvi 

Type of Expense (PERSONAL DATA 
option) 13 

Types of Income (PERSONAL DATA 
option) 8-9 

typing in programs xii, 135-41 

unearned money 49 

"Unpaid Bills" program x, xi, 89-90 
program listing 239-44 

warnings xiii 

yearly planning 109-12 
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If you've enjoyed the articles in this book, you'll find the 
same style and quality In every monthly Issue of COM- 
PUTEI Magazine. Use this form to order your subscription 
to COMPUTEI. 

For Fastest Service 
Call Our Toll-Free US Order Line 

800-334-0868 

In NC call 919-275-9809 



COMPUTE! 

P.O. Box 5058 
Greensboro, NC 27403 

My computer is: 

□ Commodore 64 □ TI-99/4A □ IBIVI PC or PCjr □ VIC-20 □ PET 

□ Radio Shack Color Computer □ Apple □ Atari □ Other 

□ Don't yet have one... 

□ $24 One Year US Subscription 

□ $46 Two Year US Subscription 

□ $65 Three Year US Subscription 

Subscription rates outside the US: 

□ $30 Canada and Foreign Surface iVIail 

□ $65 Foreign Air Delivery 

Name 

Address 

City State Zig 

Country 

Payment must be in US funds drawn on a US bank, international 
money order, or charge card. 

□ Payment Enclosed □ Visa 

□ MasterCard □ American Express 

Acct. No. Expires / 

(Required) 

Your subscription will begin with the next available Issue. Please 
allow 4-6 weeks for delivery of first issue. Subscription prices subject 
to change at any time. 
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If you've enjoyed the articles in this book, you'll find 
the some style and quality in every monthly issue of 
COMPUTEI's Gazette for Commodore. 

For Fastest Service 
Call Our Toil-Free US Order Line 

800-334-0868 

In NC call 919-275-9809 



I i 



COMPUTEI'S Gazette 

P.O. Box 5058 
Greensboro, NC 27403 

My computer is: 

□ Commodore 64 □ VIC-20 □ Other 

□ $24 One Year US Subscription 

□ $45 Two Year US Subscription 

□ $65 Three Year US Subscription 

Subscription rotes outside the US: 

□ $30 Canada 

□ $65 Air Mall Delivery 

□ $30 International Surface Mail 

Name 

Address 

City State Zig 

Country 

I \ Payment must be in US funds drawn on a US bank, international 

money order, or charge card. Your subscription will begin with the 
next available issue. Please allow 4-6 weeks for delivery of first issue. 

i] Subscription prices subject to change at any time. 

□ Payment Enclosed □ Visa 

□ MasterCard □ American Express 



Acct. No. Expires / 

(Required) 



The COMPUTEI's Gazette subscriber list is mode avaiioble to carefully screened 
organizations with a product or service which may be of interest to our readers. If you 
prefer not to receive such mailings, please check this box □. 

75A199 
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COMPUTE! Books 

Ask your retailer for these COMPUTEI Books or order 
directly from COMPUTEI. 

Call toll free (in US) 800-334-0868 (in NC 919-275- 
9809) or write COMPUTEI Books, P.O. Box 5058, 



Greensboro, NC 27403. 

ebrantity TitI* Prieo' Total 

SpeedScript: The Word Processor for the 

Commodore 64 and VIC-20 (94-9) $ 9.95 

Commodore SpeedScript Book Disk $12.95 

COMPUTEI's Commodore 64/128 Collection (97-3) $12.95 

All About the Commodore 64, Volume Two (46-0) $16.95 

All About the Commodore 64, Volume One (40-X) $12.95 

Programming the Commodore 64; 

The Definitive Guide (50-7) $24.95 

COMPUTEI's Data File Handler for the 

Commodore 64 (86-8) $12.95 

Kids and the Commodore 64 (77-9) $12.95 

COMPUTEI's Commodore Collection, Volume 1 (65-8) $12.95 

COMPUTEI's Commodore Collection, Volume 2 (70-1) $12.95 

COMPUTEI's VIC-20 and Commodore 64 

Tool Kit; BASIC (32-9) $16.95 

COMPUTEI's VIC-20 and Commodore 64 

Tool Kit: Kemal (33-7) $16.95 

COMPUTEI's Telecomputing on the 

Commodore 64 (009) $12.95 

COMPUTEI's VIC-20 Collection (007) $12.95 

Programming the VIC (62-3) $24.95 

VIC Gomes for Kids (35-3) $12.95 

COMPUTEI's First Book of VIC (07-8) $12.95 

COMPUTEI's Second Book of VIC (16-7) $12.95 

COMPUTEI's Third Book of VIC (43-4) $12.95 

Mapping the VIC (24-8) $14.95 

COMPUTEI's VIC-20 Collection (007) $12.95 



'Add $2.00 per book for shipping and handling. 
Outside US add $6.00 air moil or $2.00 surface mall. 

NC residents add 4.5% sales tax 

Slilpping ft handling: $2.00/l>ook 

Total payment 

All orders must be prepaid (check, charge, or money order). 
All payments must be in US funds. 
□ Payment enclosed. 

Charge □ Visa □ MasterCard □ American Express 

Acct. No Exp. Date 

(Required) 

Name__ — 

Address 

City State Zip 

•Allow 4-5 weeks for delivery. 

Prices and availability subject to change. 

Current catalog available upon request. 
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"A good ^accountings system mi^st be |mple; under- 
^iajndabl^, reliajblei an^ accqrat^. if should also 
i)^(;ivi4e inf9rpia|ioji| quickly. COMPUtB's f mortal 
Accounting Manage^ fof the j[p/^mc|bfore 64 is a 
compiitefizeid, |ash-bajSis acctftinting system for 
inqividua(s aqd smal) businesses, ai)d jjt meets those 
stahdirds/' ' ' ' c-l^iuljt . j 




j CpMPUT^EFs Perspnaj Accounting Ma^nager for the Com\ 
mbdore 64 (PAM) carji help you take control (j)f your finances^ 
With your Commodore 64 or 128 running in ^64 mode, 1541 disk 
drive/ cind thi^ bo6k, lou can keep vdur Ders()nal!rec6rdfs in order 



• 1 



time arrives 



As wi 



SO' tha| the in^orm^tic^n you need is readily available. When tax 





. ^TEf books; the programs ir] this book 

arfe reidy to type m ahd ^asy to use. \COI\flPUTE!'s Personal j 
Accounting Manager for the Co/Timo|yore| 64^alsq includes 'The 
Automatic Proofread4r'' to help you catch typing mistakes. You 
diin't need to buy anything else to get started with your financial 
I plin, but if ydu' pk^you W purcW i difk Je progralm 
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COMPUTEI's Perspna/ Accounting Manager for the Comj- 
hhdotp 64 M\ teach'youl thejfundamentals df cash-blasis 
accoukng in'dleah ufiderstandabie English sp that eyen be^n- 
ners c5n make good use of the program. The RAM package in- 
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routine and 13 sufiport routines including: 

lyiaiiitairls relrords uled \)y Qthei* Pa|v1 routines. 

' ^ and goin g 




Statement o| ^ncdm 
■ ig picture. 
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Help you forecast 




ami Expense, and Balance Sheet 
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64 or 128 into a 




ciiil assistant/ bDA^/PLflTf/'s Personal Accountihg tt^anager for the 



Connmoaore 64 is the nght tool. 
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